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»* DE 6502 KENNERS »« -- EEN CLUB VOOR 63xx GEBRUIKERS t* 0E 6502 KENNER *« 



EEN BlAD VOOR 65xk SEBRUIKERS 



De vereniging heeft leden in Nederland. Belaie. Duitsland. 
Frankrijk. Soanie, Portugal, Aaerika. India. Het doel van 
de veremgino is: het bevorderen van de kennisuitwisselina 
tussen de aebruikers van 65xx-coaouters. zoals KIM. JUNIOR 
COMM0DORE-64. APPLE. CHE-1. PEARCOM. flIM-65. SYW. PET. BBC 
flTflRI. VIC-20, BASIS 108. PROTON COMPUTERS. ITT 2020. OSI. 
flCC 8000, ACORN ELECTRON. SYSTEM 65, PC-100. PALLAS. MINTA 
FORMOSA. ORIC-1. STARLIGHT. CV-777. ESTATE III. SBC 65/68. 
NCS 6502, KEMPAC Svstea 4, Elextuur SAMSON-65 DOS coaouter. 
De kennis uitwisselina Nordt a. a. aerealiseerd door 5 aaal 
oer jaar DE 6502 KENNER te oublicefen (1984 en 1985 6 aaal 
zonder contributieverhogina), door het houden van clubbii- 
eenkoasten, door een cassefte-bibliotheek in stand te hou- 
den en door het verlenen van oaoerware-service. De leden 
zelf oraaniseren reaio-bi jeenkoasten. 



Verschiininasdata 
DE 6502 KENNER 



DE 6502 KENNER is een uitoave van de KIM 6ebruikers Club 
Nederland. Het blad nordt verstrext aan leden van de club. 
DE 6502 KENNER wordt van coov voorzien door leden van de 
club, bii de ooaaak van een oublikatie bngestaan door de 
redaktie. De inzendinaen van oroaraana's dienen voorzien 
te ziin van coaaentaar in de listinas. Dit. in verband aet 
het educatieve asoekt. De inzendinaen kunnen oescnieden in 
aachinetaal. de asseabler/disasseabler/editor Micro-ADE. 
de Foraat Lister/Asseabler/TaDe-utilities/Editor FATE, de 
resident asseabler/editor van Carl Moser, in de hooere 
orooraaaeertalen zoals bnvoorbeeld Basic. Basicode. Forth. 
Focal, Coaal. Pascal, etc. etc. 

De leden schriiven ook artikelen over de door hen ontnikkel- 
de hardware en/of aanoassinaen daaroo. Zi] schriiven tevens 
artikelen van algeaene aard or" reaoeren' oo oeoubliceerde 
artikelen. 



Bi jeenkoasten van de club DE 6502 KENNER is een blad van de leden en door de leden. 



derde zaterdaq 
van de aaanden: 
februari, aoril, juni, 
augustus. oktober* deceaber. 

Inlichtincen over de reaio- 
bi jeenkoasten: 

Gerard van Roekel. 
Van tier Palmstraat 11 - C 
3135 LK Vlaardinaen. 
Tel. : 010 - 351101 



derde zaterdaq 
van de aaandeii: 
januari. aaart. aei. 
seoteaber. noveaber. 

Redaktie-adres en inforaa- 
ties over oaoerware etc. : 



Willea L. van Pelt 
Jacob Jordaensstraat 15 
2923 CK Kriaoen/IJssel. 
Tel. : 01807 - 19881 



De vereniging is volledig onafhankeli jk. is statutair oo- 
gericht eii ingeschreven bii de Kaaer van Kooohandel en 
Fabrieken voor Hollands Noorderkwartier te Alkaaar. onder 
nuaaer 534305. 



Voorzitter: 

Rinus Vleesch-Dubois 

Fl. Niahtinaalestraat 212 

2037 NG Haarlea 

Tel. : 023 - 330993 

Penningaeester: 
John F." van Sorana 
TuId 71 

2925 EW Krimoen/IJssel. 
Tel. : 01807 - 20589 



Sekretaris: 
Gert Klein 
Diedenweg 119 
6706 CM Waaeninaen 
Tel. : 08370 - 23646 

Redaktie DE 6502 KENNER: 
Willea L. van Pelt 
Jacob Jordaensstraat 15 
2923 CK Kriaoen/IJssel. 
Tel.: 01807 - 19881 



Leden: 
Adri Hankel 
Jan Toaoot 
Erxin Visschedi ik 
Nico de Vries 
Erevoorzitter: 
Ereleden : 

Lidaaatschao : 



Advertent ies : 



Hardware/software 
Proaotie 

Ha rdNa re/so ft ware 



Van der Winden 



(05490 - 51151 ) 
(070 - 931417) 
(05490 - 71416 ) 
(010 - 502239) 
Sieo de Vries 
Mtt. H. de Vries ■ 
Anton Mueller 
Fl. 45.== oer kalenderiaar. oostrekenina 
3757649 t.n.v. KIM Sebruikers Club Ned. 
te Kriaoen a.d. IJssel. 
Tarieven oo aanvraag bij de redaxtie. 



De Micro-ADE is een Drodukt van Micro-Hare Ltd.. aescnreven 
door Peter Jenninas en bestead voor alle 6502-coaouters. De 
Kia 6ebruikers Club Nederland heeft de coovriants verworven 
nadat Sebo Uoldrinah de oorssronkeliike 4K KIM-1 versie 
aet 4K uitbreidde tot 8K KIM-1 versie. Nelke later door 
Adri Hankel nerd aangeoast voor de JUNIOR. Uit de bero aan- 
vullinaen en wiiziginaen stelde Wi Hem van Pelt een nieuwe 
8K source-listino voor de JUNIOR saaen. De iaoleaentatie oo 
andere svsteaen dan de KIM-1 en de JUNIOR kan eenvoudio ce- 
beuren door het aanoassen van de I/O-aoressen. welke in de 
source-listino qeaaxkeliiK teruo te vinden zim. 
Vraao de oriisliist bn de redaxtie door het zenden van een 
gefrankeerde (fl. 1.40) retourenveloooe. 

De Foraat Lister/Asseabler/Taoe-utilities/Editor FATE staat 
dankzn ae eedewerkino van Proton Electronics te Naaroen nu 
voor de bezitters van een JUNIOR-coaouter ter bescnixkino. 
Het 12K orooraaaa vindt haar oorsarono m het universele 
disk ooeratino svstea van Proton Electronics. Rob Banen ou- 
bliceerde daarover eniae miziamaen en schreef daaroo FATE. 
Eenaaal aet FATE bexend. dan is de staD naar het door ons 
gewaardeerde disk ooeratino svstea noo slechts een kwestie 
van geld. 

FATE wordt beschikbaar oesteld aet toesteaaino van Proton 
Electronics te Naarden. 

In de eoities van DE 6502 KENNER women reaelaatio aankon- 
digingen gedaan van de door de club oeoraanisseeerde lande- 
lijke en fegionale biieenkonsten. Ook worden bestuurliike 
aededelingen gedaan. naast inforaaties over hetaeen oo de 
aarkt te kooD*is. Leden kunnen het gevraaod of te kooo aan- 
geboden artikel bekend aaxen of brieven aan de redaktie la- 
ten oubliceren. 

Elke editie van DE 6502 KENNER oavat ainiaaal 48 oagina's. 

De redaxtie vernacht inzendinaen van aebruikers van alle 
6502 svsteaen. 

Het oubliceren van artikelen wordt oo de voet oevolad door 
een onafhankeli ike jury van 6502 kenners bii uitstex. Deze 
lurv kent jaarli.iks een aantal aanaoediainosoreaies toe 
voor de beste oublikatie in DE 6502 KENNER. 



DE 6502 KENNER is een 
uitaave van de KIM Gebrui- 
kers Club Nederland. 

Adres voor het inzenden 
van en reakties do artike- 
len voor DE 6502 KENNER: 
Uillea L. van Pelt 
Jacob Jordaensstraat 15 
2923 CK Kriaoen/IJssel 
Tel. s 01807 - 19881 

Vaste aedewerkers: 

Milieu van Pelt 
Gerard van Roekel 
Frans Saeehuiizen 
Jaao van Toledo 
Freelance aedewerkers: 

Frans Bakx 
Rob Banen 
Fridus Jonkaan 
Gert Klein 
Rooer Lanaeveld 
Anton Mueller 
Gert van Oobroek 
Ruud Uohoff 

Illustratiesi 

Jack Uchtaan 

Gehele of gedeeltelijke 
overnaae van de inhoud 
van DE 6502 KENNER zonder 
toesteaaing van het be- 
stuur is verboden. Toeoas- 
5ing van geoubliceerde 
prograaaa's, hardware etc. 
is alleen toegestaan voor 
oersoonlijk gebruik. 

DE 6502 KENNER verschijnt 
6 x oer jaar en heeft een 
oolage van 500 exeaolaren. 

Copyright (0 1985 KIM 
Gebruikers Club Nederland. 

De vooroagina is een aoua- 
rel van een KIM, geschil- 
derd door: 

Rinus Vleesch Dubois. 

In verband met auteurswet- 
geving en andere maatre- 
gelen oo het gebied van 
bescheraing van software 
kan de redaktie oeen aan- 
sorakelijkheid aanvaarden 
voor inzendingen. 
Inzendinaen dienen afkoa- 
stia te zijn van de inzen- 
der, tenzij anders aange- 
geven. 



mmum 



IrljMJDSOPGflVE DE J502 KEHIP JSkJL. 

1. Van de redaktie 

2. CAT. Club Aswibler Totteditor 
tondltionelOssejibTef voof alle 6502 coaputers 



3. UITSODIGIHG Biieenkoast Geldroo 16 aaart 1985 

*■ JWTCOR let VDU-kaart 
Het Grafisch Disolav 
... J. J. ft. en J. ft. J. Janssen 
GREEDY. Deel 2. Soelorooraaaa in 3 delen. 
... Phons Bloeaen 

5. JUNIOR 

Coordinaten bii USURPAT0R II schaakoroaraaaa 
... Gaaiel de ilv. Beloie 
Large Characters with the Microline 80 
. . . Frans Bakx 

6. 65CS16 

De 65SC816. een 16-bits oovoloer voor de 6502 
... Gert Klein 

7. BASIC 

fokenized Microsoft Basic Keywords and Addresses C-16 

... Nico de Vries 

Prooraaaa Uitnodioina tot 

... Alfons van de'Meutter. Beloie 

Inforaation about OSI nine dioit Basic 

... Gert Klein 

8. COMMODORE 

Monitor Prograaaa's voor Coaaodore Coaputers 
... Mico de Vries 

9. FORTH 

How to chanoe the Meaorv Mao of vour FORTH svstea on JUNIOR 
Recursie 

... Gert van Oobroek 

FORTH oo JUNIOR coaouters. Deel 1 

... Gert van Oobroek 

10. HARDWARE 

Het Grafisch Disolav (voor JUNIOR aet VDU-kaart) 
... J. J. A. en J. A. J. Janssen 

11. Mlcro-ADE 
Inlezen source 

12. 0HI0j»5_V3.3 

■wassr 

13. BBC 

BBC aicrocoaouter LEDG aan Userooort 
... Jean van Huffel. Beloie 
Acorn Electron 
... Siaon Voortaan 

14. MARKTIKFO 

Flitsend FORTH. Botkbesonkino 
... Peter van Harten 

AGENDA Reoio Den Haao/Rotterdaa/Leiden e.o. 
Vraao en Aanbad 

Verkriigbaarheid verschentn edities 



24.31.32.44. 



3. 

4. 

5. 
25. 

23. 
41. 

11. 

46. 

13. 
37. 

15, 

24. 
24. 

21. 

5. 

48. 
24. 

40. 
45. 

43. 

31. 
45. 
20. 



Een meuw coaoutenaar is inaeoaan. Een laar Haann nieuwe 
coaouters het daalicht zullen aanschouwen. Een laar waarin 
we oomeuw verheerlnkt het beeld voor ons zien van die zo 
eindeloos bereikbare. o zo beaeerde coaouter aet een aaxi- 
•ua aan RAM-oeheuoen. een ainiaua aan storinoen. een coa- 
outer waar zelfs ie vnenden de liooen bn af zullen lik- 
ken. een coaouter die werkeihk alles kan aet uitzonderino 
van die kleinioheid waar le vrouw zo naar uitziet. een ae- 
weldide coaouter oadat 'ie je alle werk uit handen neeat. 
oadat 'ie niet alleen Basic aankan, aaar ook aet asseabler 
meet oa te caan, en aet FORTH natuurliik, en aet LOGO, en 
aet PASCAL, en aet alles wat er noo uitoevonden aoet wor- 
den. een coaouter die zo oeorocraaaeerd is dat hii vrese- 
iijk interaktief net ;e staat te coaauniceren. kortoa. een 
coaouter die .ie alleen in ie fantasie kunt ooslaan oadat 
hi j in werkelnkheid nooit tot ie eioendoa kan worden van- 
wege de extreea hooe kosten. 

lijfi we aet beide benen oo aarde teruoaekeerd. can kunnen 
we nucnter vaststeilen dat we het over het alaeaeen doen 
aet oriaitieve coaouters veraeleken aet onze fantasiewer- 
kelijkheic. aaar dan oo zo coed aocelnke aanier. Dat is 
wat onze club beooat. Een cluo aet aensen die de beoerkinc 
van het hobbvaeDeuren kennen. aaar het desalnietteain vei- 
led ig benutten. 

Onze club veneuot zich eroo een reeKs meuwe leden te ao- 
en begroeten. Me looen dat tij zich binnen onze gelederen 
huis zullen voelen. Enkele oo*erkinaen znn te olaatsen. 
In verband aet een wnzioina in de oeoeleidina van meuwe 
leden. worden deze in de eerste olaats cereaistreerd bii 
de redaktie. daarna bn de oenmnaaeester (voor de te ont- 
vancen lidaaatschaosoelden). en dan bii de sekretaris (die 
voor de toezending van DE 6502 KENNER zoradraaat). Ai bn 
registratie oo de redaktie kunnen nieuwe leden noo voor de 
verschnnmc van een editie oo de hooote worden aebracht 
van bi jeenkbasten, welke zi i anders zoucen heoben aoeten 
aissen. De meuwe leden kunnen aeteen worden aeinforaeerd 
over de relatie welke er oestaat tussen het lidaaatschao 
en het verscniinen van DE 6502 KENNER. We kunnen direxter 
benadrukken Cax DE 6502 KENNER een blad is dat niet wordt 
oevuld door redaktie- of bestuursleden. aaar dat het door 
at leden zelf dient te worden voiaeschreven. Waarbii boven 
dien aan de orde kan koaen dat we net zo bii; znn aet 
orograaaa's in een of andere nooere orooraaaeertaal ais in 
assembler, ook wel aachmetaal. We zullen met nalaten ce- 
bruikers van alle soorten coaouters in de 65XX-faailie oo 
te wekken vooral nun oroaraaaa's, artikeien en andere vor- 
aen van kennis toe te voeoen aan de coov-buffer. Dit ailes 
onder het aotto dat het oubliceren van eioen aateriaal an- 
deren oowekt ook tot een oublikatie over te oaan. 
De redaktie, die naast axtiviteiten ais cassette-biblio- 
theek en oaoerware-service ook nieuwe leden werft en aan- 
aoedigt deze te werven, geeft ondersteunino aan landeliike 
en regionale bi jeenkoasten, inforaeert de leden over het- 
geen er verkriigbaar is en oo welke wnze kan worden oe- 
zocht naar het oolossen van orooleaen. waarbii dikwiils 
kontakt gezocht wordt aet andere leden. Hoewel de edities 
zich bii uitstek lenen voor het dooraeven van inforaaties 
over clubfaciliteiten, er wordt slechts bescheiden oearuik 
van geaaakt, oa zoveel aooeliik ruiate te aeven aan de in- 
zendingen van de leden. 

Oo deze olaats en oo dit tiidstio liikt het ooed een reeks 
zaken nog eens de revue te laten Dasseren. 



In orincioe verstrent de club voor Fl. 45.== lidaaatschao 
vi if edities van DE 6502 KENNER. Enioe tud oeleden was de 
oavano daarvan 40 oaama's. terwiil we nu aimaaal 48 oa- 
oina's brenoen, voor diezelfde Fl. 45.==. En dat is met 
ailes. want de inforaatiedichtheid is zo onaeveer verdub- 
beld. Er staat dus veel aeer in. Dat is echter met alles. 
Uit de verkooen van cassettes en oaoerware houdt de club, 
na aftrek van alle kosten. een kleinioheid over. De servi- 
ce bieek echter deraate ooouiair. dat het aeehielo het be- 
stuur in 1964 en in 1985 de uitoave van een oratis zesde 
editie te realiseren. Met het daarenboven ook noo oalaao- 
orenoen van de entree van landeliike bi leenxoasten van 
Fl. 25.== naar Fl. 10.== denk ik dat we de orens van het 
aoaeiiike bereikt hebben. 

In 1984 hebben we oetracht duicelnk te aaxen dat alle le- 
den best een steentie bn Kunnen oraoen aan de ledenwer- 
vmo. In een enkel oeval bracnt een lid zeifs aeer leden 
binnen. Proficiat! Ais we alle aktiviteiten aeten, dan kan 
ik uitsoreken dat het met onderdeed voor anoere wervinoen. 
Oa een oersoeKtief te realiseren waarin een biiivende oa- 
rantie voor een zesde editie staat. zullen we aet z'n al- 
ien noo aeer de schouders eronder aoeten zetten. 
Het uitbrenaen van de in Nederland en Beloie umen cenoea- 
oe edities van DE 6502 KENNER zou met ooed aooelnK znn 
ais de leden met zouden beseffen oat hun lidaaatschao aet 
zici brenct dat mist znzelf het biad aoeten vuilen. Dat 
dat in de oraktiik oete<ent dat de leden hun mzendinoen 
toevoeaen aan de coov-buffer en dat de redaKtieveroadermo 
daaruit zo ootiaaai aoaelnke saaensteilinoen vaststelt. 
s:aat het orincioe met in de wea. De hoeveelheid inzen- 
dinaen is noa met oevarieerd oenoea. Hoewel we een aantal 
schitterende hardware-oublikaties ontvinoen. het znn er 
noo te weima. De Commodore 64 en de Coaaodore 16. laatst- 
oenoeade aet znn veel oavanarmer Microsoft Basic, is te 
veel noa afwezia. Reden dus oa de bezitters oo te wekKen 
hierin veranderino te brenoen. Datzelfde oeldt evenaoed de 
BBC. de Aolle en andere. Toonaanoevend is wel de Elextuur 
zelfbouwcoaouter JUNIOR. Die scnare van inzenders hebben 
met naoelaten steeds aan Dt 6502 KENNER te denken. De lof 
welke oo de ledenveraaderino aan de redaktie werd toeoe- 
zwaaid koat de inzenders geneei toe. 
Vroeoer ontvino de redaktie hexduaos en met-becoaaentari- 
eerde list mas. Het is aiweer enioe tnd oeleden dat we 
oesloten de inzenders te vraoen volledioer te znn. Inzen- 
dinoen aoeten voorzien znn van auteursnaaa. korte inlei- 
dino. en van coaaentaar. 

Met nadruK vraaa ik na te aaan of een oroaraaaa ook oo 
eenvoudiae wnze vait aan te oassen aan andere aacnmes. 
In de vooroaande laaroanaen heoben eme:e auteurs met on- 
belanarnke aanwnzinoen oeoeven in oeouoliceerde oroaraa- 
aa' s. 

Het valt an oo dat soaaiaen de waarden van eenvoudiae 
aanoassinaen of heie kleine oroaraaaa' s onderschatten. 
Ach. zeot aen. daar kan toch iedereen wel ooxoaen? Of: 
dat is toch met interessant oenoea? In zulke aevallen 
neb ik stiif en straa voioehouden dat het oniuist is zo 
te denken. De redaxtie heeft iaaers andere ervannoen! 
Ais U zich eioen aaaxt a.le zelf aeaaaxte orooraaaa's. 
klein of oroot, in te zenden. dan voorsaei ix 1985 bn 
voorbaat tot een voor DE 6502 KENNLR aeslaaod laar! 

U.L van Pelt. 
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(c) Ruud UPhoff 

CAT Nil niets anders zeggen dan: "Ciub Assembler Teksteditor" Het is 
een 8k "two pass" assembler zoals b.v. ASSM/TED van CMoser, waarmee ik 
tot nu toe altiid heb sewerkt. De oer-versie van CAT is dan ook m.b.v, 
van flSSH/TED seschreven, totdat CAT bet, zii het sebrekkig, alleen af kon 
en vanaf dat moment kon worden gebruikt om zichzelf uit te werken tot het 
product dat ik U nu kan aanbieden. De teksteditor vertoond uiterliik een 
grote overeenkomst met ASSIi/TED naar heeft hier en daar andere namen voor 
commando's. Voornanel ijk een kwestie van persoonliike ssaak. Commando's 
zoals MOVE, COPY, DELETE en RENUMBER. Dit laatste commando kan ook een 
deel van de source hernummeren. Bi jzonderheid in het commando CHANGE is 
dat het speciale faciliteiten heeft voor het begin en einde van de resel 
en het onderscheid kent tussen instructie en commentaar op een resel. Bo- 
vendien kan sebruik gemaakt worden van een "wildcard" karakter dat in de 
vervansende string kan worden aangehaald ! De assembler is geheel anders 
van opzet dan ASSM/TED. CAT kent seen Macro's, conditional assembling of 
relocateable object files. Daarvoor in de Plaats is CAT voorzien van in- 
sebouwde structuurmacro's die het de prosraMweur moselijk maken o«, «aar 
dan wel op assembler niveau, te werken net controistructuren zoals in een 
hosere programmeertaal. Gezien Mi in voorkeur voor COMAL is het dan ook 
niet verwonderliik dat we IF-THEN-ELSE, REPEAT-UNTIL, WHILE-DO en CASE- 
WHEN-OTHEWISE tesen kowen. Vanzelfsprekend is CAT seschikt voor de C-MOS 
processors, inclusief die van ROCKWEL. Een andere byzonderheid is dat CAT 
absoluut niet systeem afhankeliik is. De I/O moet nameliik voor elk sys- 
tee« apart worden geschreven en daartoe is CAT voorzien van een aantal 
standaard variabelen en een JMP-tabel. Dat nil niet zeggen dat U altijd 
eerst dagenlang meet zwoegen o« CAT op uw systeem aan de praat te krijgen 
want voor de bekendste Machines is of wordt, dat al gedaan. Op dit moment 
is CAT kant en klaar in de cassettebibl iotheek voor de COMMQDQRE-54. Qp 
het Moment dat U dit leest zijn waarschijnl i jk ook de JUNIOR en APPLE 
versies gereed. Voor andere Machines kunt U contakt met tii opnemen. CAT 
is tesen de gebruikel ijke onkostenversoeding bij de redactie verkrijgbaar 
en wordt seleverd met een nederlandstal ige handleiding. Tenslotte zult U 
«ij willen verschonen als ik nog even een paar dinsen zakel ijk aan de or- 
de stei: 

-Conform de statuten blijft CAT eisendom van de auteur: Ruud UPhoff. 

-CAT wordt met zijn soedvinden, uitsluitend via de redactie van de 6502- 
KEtHER, gratis ter beschikking gesteld, uitsluitend aan leden van de 
KIM GEBRUIKERSCLUB NEDERLAND en uitsluitend voor persoonlijk gebruik. 

-De vereniging is serechtisd de voor de verstrekking te aaken onkosten in 
rekening te brengen. 

V00RK0M a.u.b. DAT ONZE CLUB SOFTWARE IN DE "HANDEL" BELANDT 
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UITNODIGING 



BIJEENKOM5T 



Datum 
Lokatit 



Reisroute : 
- oer auto 



zaterdaa 16 MAART 1985 
Gemeenschaoshuis "De Zes Gehuchten". 
Paoenvoort 10 te Geldroo (bii Eindhoven) 



VMafjplMgj E 3 Eindhoven - Venlo 
flfslaq Geldroo bii Golden TuliD hotel. 
Bij eerste verkeerslicht richtino Cen- 
triM linksaf slaan (Eaooad). BiiKrui- 
sinq na ca. 800 «. linksaf slaan (Hooa 
Seldroo). Deze weo bliiven volaen tot 
gebouw naast kerk aan rechterziide. 



Zie voor entreeoriis 
onderstaand oroa ramma. 



- oer trein 



- vanuit rondweo Eindhoven 

fffsTao Geldroo bn DflF showroo* (Eind- 
hovense weq). Weg"volgen tot tweede 
verkeerslicht voor sooorweaviadukt. 
Rechtsaf slaan en aeest rechtse wea 
inslaan (Paoenvoort), Deze weo bliiven 
volqen tot oebouw voor kerk aan linker- 
ziide. 

- vanuit Nuene n - H elaond 
rOeldroo richtino Eindhoven. Bii 

le verkeerslicht voorbii sooorviadukt 
linksaf (voorsorteren). Verder als bij 
route vanuit rondweo Eindhoven. 

- Stootre in Eindho ve n - Heert 
InlSeTJroo direkEna uitoano station 
links voetqangerstunnel door (Tournooi- 
veld). Weo oversteken en rechtsaf oaan. 
Eerste laan links (Hertooenlaan). 8a 
bocht eerste straat rechts (Gildestr.). 
Eerste straat links (Dieoenvaart). Ge- 
bouM aan einde links (naast kerk van 
Zesqehuchten). 

Lunchoakket zelf 
ConsutDties teoen betalino. 



Prograaia Buitenoewone Ledenveroaderino: 
(allawi dit gtdeeUe gratis toegankeliik) 

09.30 - Zaal ODen. 

10.15 - Financieel laarverslao 1984 en 

Beorotino 1985. 
Prooraata Bijeenkomst Geldroo 
(entree: Fl. 10,00 oer deelnemer) 



10.45 

11.45 
12.15 
13.00 
13.30 



17.00 



- Ooenino/Lezina fldri Hankel en Erwin Vis- 
schedi jk over DOS 65 van Ad Brouwer. 

- Forua. 

- Lunch. 

- Markt. 

- INFORMEEL GEDEELTE. 

Het inforsieel qedeelte stelt de deelneners 
in de oeleoenheid onderlina met elkaar ken- 
nis te aaken. BRENG 00K UW'SYSTEEM MEE ! " 1 
Sluitino. 





HET GROFISCH DISPLAY 



De VDU-kaart van ELEKTUUR heeft als nadeel dat qrafisch werken (olotten 
van arafieken e.d. ) niet era goed gaat. Daarom hebben wi i een qrafisch 
disolav aemaakt. dat in kombinatie met de VDU-kaart werkt. 
Het arafisch disDlav bevat, arofwea aezead. alleen maar aeheuaen en 
stuuflogica en is ODgebouwd 6d een eurokaart m. b. v. het zoqenaamde 
' road-runner' DrinciSe. 

Deze eurokaart is boven od de VDU-kaart geolaatst waarbii aan de lange 
zijde van de beide Drinten de onderlinae verbindinaen ontstaan. 

FORMAAT 

Het beeldformaat van het grafisch disolav is afh. van de beeldindel ina van 
de VDU-kaart en de hoeveelheid aanweziae RAM-aeheuaen. 

Bij aanname van een vollediae RAM-bezett ina (16Kbvte aroot), 2 kleuren en 
een beeldindeling van BO karakters do 25 reaels geldt voor het formaat: 

8 * 80 = 640 aunties horizontaal 
8 * 25 ■ 200 ounties vertikaal 
(128000 van de 16*1024*8=131072 Dunt les worden hier gebruikt. ) 

Bij een beeldindeling van 64 karakters oo 32 reaels wordt het formaat: 

8 * 64 = 512 Dunt les horizontaal 
8 * 32 = 256 ounties vertikaal 
(Geheugen wordt nu volledig gebruikt) 

Zo is elk formaat so ft ware-mat i a in te stellen. maar voor de eenvoud gaan 
we steeds uit van het formaat 640 * 200 ook de software werkt met dit 
formaat. 

De grootte van de ountjes, bij 2 kleuren. is aeliik aan die van de VDU-kaar 
onaeacht het formaat en hoeveelheid aanweziae ftAM-aeheuaen. 
Bij meerdere kleuren (gri ist inten) en in de kni DDermode "neemt de resolutie 
af, maar daar later meer over 

Het beeld is als volgt oogebouwd: 

Elke geheugenolaats (1 bvte) levert 8 ounties horizontaal en 
8 ooeenvolaende oeheuaenolaatsen leveren 8 ri len van 8 Dunt ies. 
De 9de geheugenolaats is weer het begin van een nieuwe 8*8 matrix 
naast de eerst etc. 

Totdat de 80 kolommen vol zim waarna de nieuwe matrix onder de 
lste komt etc. Zie figuur 1. 

HET RflM-GEHEUGEN 

Voor het RflM-aeheuaen is aebruik gemaakt van de 6116 (150nS) of aanverwanten. 
De 6116 is 2K*8 bits groof en er kunnen er max. 8 aebruikt worden. 
Omdat 16Kbyte in het aeheel te veel ruimte in beslaa neemt is het aeheuaen 
oogedeeld in 2 banken van elk SKbvte aroot. 

Deze banken staan oo $B000 t/m *CFFF. 'welke bank oeselekteerd wordt beoaalt 
de PIA (6821 zie schema IC 16) die ook in het arafisch disDlav aanwezio is. 
Buiten de ruimte besoarina levert dit ook intefessante moael i ikheden voor 
latere uitbreidingen. 

Interessant is het om te bekiiken of de statische RAM's niet vervanaen 
kunnen worden door ? de veel goedkooere. dvnamische RAM's. 
Echter de 6116 gaf al eniae oroblemen a. a. v. t iminaf out les, daarover 
meer bij het besoreken van het schema, zodat het aebruikt van dvnamisch 
RAM niet simoel zal zijn maar theoretisch wel uitvoerbaar. 

KLEUREN en KNIPPEREN 

Standaard is het mogelijk om met arijstinten te werken, alhoewel de koooelin 
met de VDU-kaart zo aoedkooD moaeliift is aehouden is het resultaat aoed. 
Indien gebruik wordt gemaakt v/d kleurenmodulator van ELEKTUUR zal het 
resultaat beter zim en de ariistinten worden dan kleuren. Omdat dit een 
dure oDlossing is worden er alleen grijstinten gebruikt. 

Er zijn 3 kleurmodes: 
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A) Geen grijstinten 
-Max. resolutie 

-Elk bitie stelt een ount ie voor. indien bitie is *'V dan een wit 
□untie anders een zwart Dunt ie. 

B) 3 kleuren; wit, griis en zwart 

-2 bitjes vormen samen een Dunt ie 
-resolutie 2* zo klein als bii A), 
bl bO kleur 
0 0 ount ie niet aanwezia dus zwart 

0 1 idem 

1 0 wit 

1 1 grijs 

C) 8 kleuren: wit, 6 grijstinten en zwart 
-4 bitjes vormen samen een Dunt ie 
-resolutie 4* zo klein als bi l A). 

-Het MSB-bit ie, hier dus b3, beoaalt ook weer of er een ount ie 
aanwezig is (indien ' 1' ) of niet. Terwiil bO, bl en b2 de kieuren 
beoalen (000=wit en lll=zwart). 

Zoals te zien is beoaalt het MSB-bit (dus bl bii 3 kleuren en b3 bii 
B kleuren) of het ountie aanwezia is en de andefe bit(s) de kleur. 
Hierdoor is het mogeliik om eerst overal de kleuren in te vullen en 
daarna Das het Dunt ie te laten verschiinen d.m. v. het MSB-bit ie te setten. 

Voor kniDDeren moet het disDlav in de kleurmode staan en Pa5=l bii 

3 kleuren vervalt de griistint en bi l 8 kleuren bliiven er noa'/i kleuren 

over. 

Het MSB-bitie beoaalt weer of het ountie aanwezia is (indien MM het 
LSB-bitie (meest rechtse bitie) beoaalt het volgende: 

Indien '0' -Geen kni Doerf unkt ie 

indien M' -Kniooerf unkt ie, het desbet ref f ende Dunt ie kan men 
nu laten kniDoeren en wel oo twee manieren: 

A) Hardware matia dmv de aanweziae oscillator (Pa6=M') 

B) Software matia dmv Pa7 (indien Pa6='0M 

Pa6 beoaalt dus met welke manier er gekniooerd wordt. 

□ok hierbij geldt weer dat zolana het MSB-bit ie=' 0' het Dunt ie niet aanwezia 
is ongeacht de waarde van het LSS-bit ie. 

DE PIA 

De PIA is qeselekteerd van $1980 t/m *19FF. dit is alleen moaeliik als de 
VIA (od de interface kaart) od $1800 t/m $18FF staat. Hoe dit aedaan 
moet worden is al meerdere malen aangegeven in dit blad. 

Van de Doorten worden alleen PaO t/m Pa7 en Pb7 aebruikt en wel voor 
het volgende: 

Pa7 Pa6 Pa5 Pad Pa3 Pa2 Pal PaO FUNKTIE 

0 0 eerst e 8K RAM 

0 1 tweede 8K RAM 

1 0 voor evt. RAM uitbreidina 
1 1 idem 

0 0 2 kleuren 

0 1 3 kleuren 

1 0 8 kleuren 

1 1 disalav uit 

0 inverse bee Id 

1 normaal bee Id 

0 normaal 

1 kniooer mode 

0 kniooeren mbv. Pa7 

1 kniDoeren mbv. de oscillator 

0 ' kniooer-ount ie' aanwezia 

1 ' kniDDer-ount ie' niet aanwezia 

Zoals te zien is moeten PaO t/m Pa7 alien als uitaang geschakeld worden. 
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Pb7 wordt als ingang geschakeld en wordt verbonden met de svnchronisat ie 
si anal en. 

Indien de software nu steeds wacht totdat Pb7='0' voordat het aeheuaen 
gebruikt wordt, dan zal er geen storina od het beeld komen. Dit" aaa* wel 
ten koste van de snelheid. waar snelheid aewenst is kan het niveau van Pb7 
genegeerd worden. 

HET SCHEMA 

De 4 selectors (IC10 t/m IC13) beoalen of de VDU-cont roller of de uP bii 
het aeheuaen komt. 

Oiyi t Iminaf out ies te ontloDen moeten deze van het tvoe 74S157 of 74ALS157 
zijn. Om dezelfde reden is IC32 toeaevoead. deze zorat ervoor dat het r/w 
signaal (Den 21 van IC1 t/m ICS) Das dan laaa wordt als alle sianalen sta- 
biel zijn en weer hooa wordt voordat de VDU-cont roller het aeheuaen weer 
overneemt. De aebruikfe waarden van de R's en C's aelden vo6r de"6116 150nS 
en inoeten bij langzamere tyDen waarschi jnli jk aangeoast worden. 

Merk od dat van de VDU-kaart een adresliin (MA9) aeinverteerd moet worden 
dit kan aedaan worden door N15 od de VDU-kaart, daar deze noa niet aebruikt 
wordt. De 8 uit 3 decoder (IC9) beDaalt welke RAM geselekteerd wordt. 

IC31 buffert de data die uit het RAM-aeheuaen komt, achteraf aezien is dit 
niet nodig en kan evt. weggelaten worden. waarbi i dan de inaahaen met de 
uitaangen doorverbonden moeten worden. 

IC27 en IC28 zoraen ervoor dat afh. van de kleurmode de data v/h schuifre- 
gister (IC29 en IC30) od de luiste tiid inaelezen wordt in IC26. 
4Q van IC26 beoaalt of er wel of niet een bunt ie aanwezia is. 1Q t/m 3Q 
beoalen de evt. kleur van dat Duntre. 

Rond IC21 is een kleine oscillator'oogebouwd voor het hardware matia laten 
kniDDeren van een ount ie. 

Od de VDU-kaart zijn ook een Daar wiiziainaen aanaebracht om de twee 
videosianalen (van de VDU-kaart en van het arafisch disalav) te menaen 
en de kleurinformatie toe te voeaen. 

Achter N34 (zie ook schema in de'ELEKTUUR seot. 1983 biz. 82) komt een 
OR-aate (N28 en N29 die toch vrii waren). In deze OR-aate komen de beide 
videosianalen, de uitaana komt weer aan N31. 
De kleurinformatie komt oo het knooDDunt tussen R4 en P2. 

In het schema staat bij elk IC het tvoenummer muv. de Doorten. die volaen 
nu: 

IC14 74S00 IC21 74S132 

IC17 74LS20 IC22 74LS04 

IC18 74S04 IC23 74S20 

IC19 74S10 IC24 74S20 

IC20 74LS00 IC25 74S86 

Indien moaelijk voor IC26 t/m IC30 ook een sneller tvoe nemen. 
Aanbevolen wordt om zoveel mogeliik snelle tvDen te aebruiken. bv. 74S of 
74ALS, maar met 74LS lukt het misschien ook wel. 

DE SOFTWARE 

De software zal in een volgend artikel besDroken worden. 
werkend is al: 

PL0T(X,Y) zet een ount ie od de coordinaten X. Y. 
UNPLOT(X.Y) haalt het Dunt ie weer wea. 

LOOK(X.Y) ki jkt of er een ount ie staat oo de coordinaten X. Y. 
Allerlei subr. voor het werken in de kleur- en kniDoermode. 

Er wordt nog gewerkt aan een subr. DRAW (XI, Yl. X2, Y2) welke od een 
snelle manier tussen twee ounten een lijn trekt. 

JJA en JAJ JANSSEN 
Gerardswea 30 
6525 RT NlJMEGEIM 
Tel. : 080-562082 
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DE 65SC816. EEN 16 BITS 0PV0L6ER VOOR DE 6502 




Sinds Chuck Peddle in 1975 de NMOS 6502 microorocessor bi i MOS Technoloav 
ontwikkelde. is er aan deze chiD maar weinio veranderd. De inst ruct ieset 
en net hardware-conceDt van de 6502 bleken zo aoed doordacht te ziin dat 
nu -9 jaar later- de 6502 noa steeds een van de best verkochte processors 
is. Sinds kort realiseren de fabrikanten zich echter dat dit niet eeuwia 
zo zal bliiven. Vooral de beoerkte adresseercaoaciteit en de hoae vermoaens- 
dissiDatie van de 6502 leveren Droblemen oo. Svstemen met meer dan 64 K 
RAM zi.jn tegenwoordig al heel oewoon, en NMOS orocessors ziin moeiliik in 
draagbare aooaratuur toe te Dassen. Ran het laatste is inmiddels teaemoet- 
qekomen door de ontwikkelina van de 65C02 die aeheel oin-comoatible is met 
de NMOS versie en die bovendien noa een uitbreidina van de instructieset 
kent. 

Kort geleden is een nieuwe orocessor oo de markt gekomen die het adresseer- 
orobleem oolost. De nieuwe orocessor draaat het tvDenummer 65SC816 en kan 
gezien worden als de CMOS 16 bits oovolaer van de 6502. De 65816 is zowel 
in staat zich als een 8 bits en als een 16 bits orocessor te aedraaen. Een 
enkel bit in het status reaister beoaalt of de orocessor zich'als een 
65C02 of als een 65816 aedfaaat. Is dit E bit 1 dan wordt de 65C02 na- 
gebootst echter zonder de extra inst ruct ies die de firma ROCKWELL er in 
meende moeten te stoooen. 

Maken we het E bit 0 dan hebben we olotselino een aeheel andere orocessor 
in handen. De accumulator en de index reaisters ziin 16 bits breed aeworden. 
De programcounter wordt uitgebreid met een 8 bits droaram bank reaister 
Via dit bank reaister, dat aemultiDlext wordt met de databus. kunnen 256 
geheugenbanken van 64 K worden geselecteerd. Hierdoor is de 65816 in staat 
6m 16 Meaa (!) bvte aeheuaen te adresseren. De stackDointer is eveneens 
16 bits breed en kan daardoor willekeurio in aeheuaenbank 0 aezet worden. 
Verder wordt er, naar analooie met de 6809. een direct-Daae reaister 
toeaevoead. Hierdoor is het moaeliik de zero oaae (die nu direct Daae 
heet) eveneens willekeuria in Bank 0 te olaatsen. 

Het is noa steeds moaeliik de accu en de index reaisters als 8 bits een- 
heden te behandelen door twee bits in het statusreaister te setten of te 
reset ten. 

Het Drogrammeermodel van 65816 verduidel i ikt een en ander. 
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NIEUWE ADRESSER I NGSMODES 

De direct <»z-Daqe) indirect y indexed, de direct indirect, de absolute, 
de absolute x indexed en de relative adresserinosmode (leest u net aerust 
nog maar een keer over) ziin uitaebreid met een "lona" mode. De direct 
Daqe instruct ies kri.iaen nu een 16 bits ODerand. waardoor elke direct oaoe 
in de 256 geheugenbahken aeadresseerd kan worden. De absolute instructies 
.li^I-.!!^ 6itB ooerand waardoor elk ad res in het 16 Mbyte bereik 
aeadresseerd kan worden. Ook de branch oodrachten kunnen voorzien worden 
van een 16 bits offset. 

Drie nieuwe adresserinosmodes hebben te maken met stack acces: stack, 
stack relative en stack relative indirect indexed. Met behulo hiervan 
kan een subroutine od een eenvoudiae manier Darameters van de stack halen 
die er door een andere routine oogezet zijn. 

NIEUWE INSTRUCTIES 



Aanaezien de 65816 comestible is met de 65C02. zijn de 65C02 instructies 
aanwezig. Deze zijn al eens eerder behandeld in de 6502 KENNER en derhalve 
oa ik er nu niet verder od in. 

Allereerst zijn er nieuwe instructies die te maken hebben met de extra 
reaisters van de 65816: 

PHB en PLB oush and Dull data bank reaisters from stack 
PHD en PLD Dush and Dull direct oaae reaister from stack 
PHK Dush Drogram bank reaister oh stack 

TCD transfer accu C to direct Daae reaister 

TDC transfer direct oaae reaister to accu C 

TCS transfer accumulator to stackDointer 

TSC transfer stackoointer to accumulator 

XBA exchanoe accumulators B and A 

XCE exchange X and E flap 

Verder zijn er SDeciale returns uit "lona" geadresseerde subroutines en 
interruot routines. 

Drie nieuwe instructies hebben te maken met stack behandelina: 

PEA Push Effective Absolute adress. Deze drie bvte instructies zet de 
16 bits ODerand od de stack. Deze instructie wordt o.a. aebruikt 
om een 16 bits constante aan een subroutine door te aeveh. 

PEI Push Effective Indirect adress. Het tweede bvte van deze instructie 
is een offset in de direct-oaae. De inhoud van dat adres dIus het 
naasthoaere wordt od de stack aezet. Deze instructie wordt biivoor- 
beeld aebruikt om een indirect adres od de stack te zetten. 

PER Push Effective orogramcounter Relative adress. Deze instructie 

telt een 16 bits ooerand bij de Droaramcounter od en zet het resul- 
taat od de stack. Hiermee kan bijvoorbeeld het adres van een datablock 
aered worden. 

Heel interessant zijn ook de blockmove instructies MVP en MVN. Het x reaister 
bevat het eerste adres van het te verDlaatsen datablock. het y reaister 
het adres waarnaar aecooieerd moet worden, de accumulator het aantal te 
verolaatsen bytes. MVP beaint met het laatste bvte als eerste te verDlaatsen 
MVN beaint met het eerste bvte. 

Tenslofte zijn er nog een aantal instructies toeaevoeod die te maken hebben 

met het toeoassen van de 65816 in mult i-Drocessor svstemen: 

COP Coprocessor instructie. Is een software interruDt met een eiaen vector 

STP SToP clock instructie 

Wfll WAIt for interruot instructie. 

TENSLOTTE 

Bovenstaande beschri ivina van de 65816 is allesbehalve volledia. Hi i is vooral 
bedoeld om een eerste indruk te aeven van de moael i lkheden van de nieuwe 
processor zonder uitDuttend in details te tredeh. Als meest oDvallende 
eigenschaD van de 65816 -afaezien van de 16 bits structuur- kan men vooral 
de nieuwe stack instructies noemen. Een stack is een flexibele. betrouwbare 
en eenvoudige data-structuur. Veel hoaere oroarammeertalen (interDreters 
en comDilers) maken oebruik van een of meerdere stacks. Kenneliik hebben 
de ontweroers van de 65816 dat in gedachten aehouden toen ze zich afvroeaen 
wat je met 16 Mbyte aeheuaen moet doen. . . 
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iOO REM *********************************************** 

110 REM **** UITNODIBINS TOT . . . . - . .. .. ■ ■ •■• **** 

120 REM *■***••****•*•**> A. V d Meutter <****************** 

130 CALL 7037: REM CLS 

140 PRINTsPRINTsPRINTsPRINT 

150 PRINT" ♦#**********»************************„ 

160 PRINT" ** _ **„ 

170 print;; ** uitnodibinb ** m 

llo PRINT" **♦**»»*> A. V. D. MEUTTER <************** " 

200 PRINT: PRINT: PRINT SPRINT SPRINT: PRINTS PRINT 
210 FOR Z=l TO 5000 s NEXT 

230 N=100sDIM VN* (N) . AN* (N) „ kIA/vs „ , lMff¥T 
233 F0RX = 1 TO NsVN*(X>=" "sfiN*(X)=" "sNEXT 

235 F0R T X=I 8 T0 NsVN*(X)=" ":AN*(X>=" "'NEXT 

240 INPUT"Wie nodi at uit s ":FV* 
250 INPUT"Uw straat. . s " :W0* 
260 INPUT"Uw huisnr. . s " ;NR* 
270 INPUT"Uw Dostnr. . s " :P* 

280 INPUT"Uw woonDlaats. s " :WP* _ rt _, . 

29<"> INPUT"Oo wat wordt uitaenodiod ? ■ :DOfc.l_* 
300 INPUT"Od we Ike daa/datum ?s":DATUM* 
310 INPUT"Om welk uur ...»";UUR* 

320 PR I NT "Beef nu de nansn en voornamen(of alleen voorn«a») 
330 PRINT"als er o.yi oevraaad wordt. Na de laatste. tik \ in 

346 FOR X=l TO NsVN*(X)=" "sAN*(X)=" "sNEXT 

350 B=lsC=N 

360 FOR X= B TO C 1)kl ., v . 

370 PRINTX: s INPUT" Voornaam . ..s ":VN*(X> 

3SO IF LEFT*(VN*(X) 1)="\" THEN BOTO 420 

390 INPUT"Achtemaam (of MINSTENS 1 SDat ie) : " : AN* (X) 

400 IF LEFT* (AN* (X) . 1 ) ="\" THEN BOTO 420 

410 NEXT 

415 GOTO 440 

420 PRINT"Einde invoer.' '« 

430 VN*(X)=" ":AN*(X)=" 

435 X=X-1 
440 GOTO 780 

451 IFNOTLiFT*°VN*(X). 1)=". " THEN NEXT X 

IFLEFT*(VN* 1)="\" THEN VN*(X)=" "SX=X-1 

453 IFLEFT*(AN*:i>="\" THEN AN* (X) =".... .. . . "sX=X-i 

455 INPUT"Hoeveel kaarten niet-oD-naaiYi ? ■ :EX 

460 X=X+EX-l:C=X:N=X 

470 REM FORMATTEER PRINTER 

490 I NPLJT " KAART JES (O) OF DOORLOPEND ( 1 > n »'!C_^ 
500 PRI NT" ZET PAPIER OF KAART KLAAR. EN DRUK TOETS. : 
510 GETT* 
520 FOR P=l TO N 
530 PRINTCHR*(17) 
540 PRINTTAB (4) :CHR*(27) :"5": 
550 PRINTCHR*(14) : " UITNODIGING" 
560 PRINT 
570 PRINTTAB (16) 
580 PR I NT "OP" 
590 PRINT 
60O L=LEN ( DOEL* ) 
610 TL=18-L:IFTL(0 THEN TL=0 
620 PRINTTAB (TL) : 
630 PRINTCHR* ( 14) :DOEL* 
640 PRINT : PRI NT : PRINT" Aan s 5 ~„, 
650 PRINTCHR* (27) : "4" : VN* (P) : ":AN*(P 
660 PRI NTs PRINTCHR* (27) : "5" 
670 PRINT"Vanweae s " 
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660 PRINTCHR* (27) ; "4" :CHR* ( 14) -FV* 

690 PRINTCHR* (27) : "5" 

700 PRINT"0d ": DATUM*: TAB (25) UUR*- "uur " 

710 PRINT " UU1, 

720 PRINTWO*:" ":NR* 

730 PRINTCHR* (14) : P* : CHR* (20) • " "WP* 

740 PRINT: PRINT: PRINT: PRINT: PRINT: PRINT 

750 PRINTCHR* (19) ; : IF C=l THEN GOTO 770 

770 NEXT N p" drUk SDatie om te starten":GET ST* 

780 CALL7037 : PRINT. "WAT MIL JE ?" :PRINT:PRINT 

790 PRINT. "* INVOER 

800 PRINT. "* CORRECTIE 

310 PRINT. "* PRINTOUT " 

820 PRINT:PRINT. "Kies :":: INPUT KI* 

It [-EFT* (KI*. 2)=" IN" THEN N=100 : G0T0235 

840 IF LEFT*(KI*.2)="PR" THEN GOTO 450 

850 IF LEFT*(KI*.2)="C0" THEN GOTO 880 

86o PRINT"Onaeldia « . 

870 FOR ZZ=1 TO 500 : NEXT : GOTO 780 

880 PR I NT "WAT WIL JE CORRIGEREN ":PRINT 

900 INPUT C0* UM <D> " ADRES " Cft> " UUR <U> - NflMEN < N> " 

310 IF CO*="D" THEN GOTO 950 

920 IF CO*="A" THEN GOTO 970 

930 IF CO*="U" THEN GOTO 1000 

940 IF CO*="N" THEN GOTO 1020 

945 GOTO 860 

950 INPUT" Datum ...: " : DATUM* 

960 GOTO 780 

970 I NPUT " St raat . . . : " : STA* 

980 INPUT"NR NR* 

990 GOTO 820 

1000 INPUT"Uur : ";UUR* 

1010 GOTO 820 

1020 PRINT : PRINT. " NAMEN" : PRINT 

1030 PRTNT"ALLE NAMEN -CA> OF EEN -CE> OF DEEL -CD>" 

1U4U PRINT"KIES. . ": :INPUTKI* 

1050 IF KI*="A" THEN GOTO 340 

1070 GOTO^llo" THEN INPL,T '* NR 7 ! ":E:GOTO 1080 

1080 PRINTVN*(E) :lNPUT"Voornaam. . . :":VN*(E) 

1100 GOTO 820 (E) !lNPUT ' ,flchte ™aa,r,.. ="=AN*(E) 

1110 IF NOT%a*="D" THEN GOTO 820 

1130 INPUT " VAN . TOT Nr :"-B C 

1140 GOTO 360 ' 

iilo rIS J2 STAR^P^So^r?^ ^rtT* 11 CHR* voor welKe 

11 An rIK ^ R * ( ^ ) l °f t .^ DC - 1> of H x U« dit is een SOFTWARE 

lllO RPM ^ $(19 1 ? f < DC - 3 > ° f Hx 13: dit is een SOFTWARE 

illrt dcm 0F 5~F W i Xt £ h - De orinter aeeft ACKN bii overdracht 
REM zodat het svsteem niet vac=f i nnoi- I nt - 

lip sus rw.r jss-S! EHis&Fk ?? 

1250 REM CHR*(27) is (ESC) aeweest is. 

J?IR B IV ,'7'. is rechte letters 

1^70 REM + "4" is schuine letters 

?§n pIm E^Pi 1 ^ °£ < ? 0> of H * 0E! ^et dubbel-breed aan en 

-nr ppm dat ni 0t - * 0fv ^ el een <DC-4)=CHR*(20)=Hx 14 oezonden 

13O0 REM wordt. ofwel een <CR) teaenoekomen wordt. 
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MONITOR PROGRAMMA 's uoor COMMODORE Computers, 



Semaakt door: Nico de Vries 

Mari Andr iessenrade 49 

2987 MA Capelle aan den Ussel 

B1B-582239 

Inleidi ng . 



Bij de 6582 Kenners is net eigenlijk heel gewoon dat een 
computer is uitgerust met een mon i torprogramma . Bij de meest 
populaire computer, de Junior, is dit zelfs het enige waste 
programma, dat dan dus tevens het operating system vormt. Ook 
bij andere single board microcomputers kennen me deze 
situatie: de KIM, de SVM en de AIM-65 zijn er voortaeelden 
van . 

Er komt echter veelvuldig een tweede soort computers uoor, 
namelijk computers met een BASIC- i nterpreter (urijwel altijd 
die van Microsoft) in ROM. Deze apparaten hebben meestal geen 
monitor programma, en zijn daarom op mach i nen i veau mat 
moeilijk te benaderen . 

Van deze laatste categorie maken ook de producten uan de 
thans zeer succesuolle fabrikant Commodore uit. 

Apparaatbeschr i j v i ngen . 

Voor Commodore begon het computer t i jdperk met de welbekende 
PET-computer . Dit apparaat met ingebouuide casset terecor der , 
beeldscherm en klein toetsenbord is vrij bekend gemorden. 
Karak ter ist iek ujaren de afwezigheid uan een mon i torprogramma 
in de ROMs en de grote hoeueelheid bugs in zouiel BASIC als 
het operating system. 

Ha een drietal jaren werd de PET uernieuuid tot de CBM-38BB 
serie. Deze apparaten hadden geheel nieuuie geheugen i ndel i ng 
in de eerste uier pagina's en een vrijuiel bug-vrije ROM- 
inhoud, waarbij zelfs een primitief mon i torprogramma niet 
vergeten is. 

Spoedig na het uerschijnen uan de 3888-mach i nes kwam de 88- 
koloms CBM 8832 uit, met een ui tgebreidere BASIC, die uoor 
het eerst een uersienummer laat zien: BASIC 4.8. Ook in dit 
apparaat zat een licht uerbeterd mon i torprogramma . 
De Commodores merden dus steeds mooier (en duurder ) , totdat 
de VIC-28 uerscheen. Een speelgoed-acht ig apftBraat met 
slechts 22 tekens per regel . Dit is teuens de eerste 
Commodore zonder beeldscherm. Een tiueede CBM primeur was een 
gekleurd beeld. De VIC-28 heeft, u raadt het al, geen monitor 
programma . 

Tenslotte uerscheen het kassucces de CBM-64, zo genoemd 
uanwege de hoeueelheid RAM in deze machine. De hardware uan 
dit apparaat is ontegenzeggel i jk fraai, de firmware is 
daarentegen nocjal gammel : een mon i torprogramma ontbreekt, 
teriuijl een oudere versie uan Microsofts BASIC is gebruikt. 



TIM en MLM. 



De ontwi k kel i ng van de mon i torprogramma ' s uoor de diverse CBM 
machines ging analoog. Bij veel PET computers werd een bandje 
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meegeleuerd met daarop TIM. Dit was een gewijzigde uitgaue 
uan de Terminal Interface Monitor uit de KIM, aangepast aan 
de in de PET aanmezige schermedi tor . TIM kent zes 1-letter 
commando ' s : 

.M XXXX, WW Dump het geheugen uan XXXX t/m WW in hex. 

Veranderen met de scherm editor is toegestaan . 
-R Toon de geredde registers in hex. Ook hier 

is uerandering met de scherm editor mogelijU. 
-X Ga terug naar BASIC. 

-L XX , HAAM Laadt het procjramma MAAM uan deuice no. XX. 

.S XX , HAAM , WW , ZZZE Saue het blok geheugen uan WW tot 
ZZZZ op deuice no. XX. 

.G XXXX Voer het procjramma op adres XXXX uit. 

Hierbij morden uooraf de CPU-registers met de 
tuaarden uan het R-commando geladen. Indien 
XXXX niet uiordt opgegeuen , iwordt de geredde PC 
getaruik t . 

Ik geef de commando's omdat er slechts zelden een handleidiny 
bij de computer merd geleuerd; niet uoor niets is de oude PET 
de slechtst gedocumen teerde computer aller tijden. 
TIM wordt op dezelfde plaats in geheugen geladen als een 
BASIC programme: dit heeft uerscheidene nadelen, luaaronder de 
onmogel i jkheid de monitor en een BASIC programma tegel i jker- 
tijd in het geheugen te hebben . 

Dit nadeel werd opgeheuen in de 3B88-serie: deze machines 
hebben een uerbeterde TIM in de ROMs ingebouwd. Ook tuijst bij 
deze apparaten de BRK-uector namr de monitor, die MLM heet 
(staat simpeluteg uopr : Machine Language Monitor). Dit gegeuen 
is er de oorzaak uan, dat in PET/CBM kringen de monitor 
urijuiel altijd gestart wordt uia een BRK (met SVS4 of 
SVS1B24), ondanks het feit dat een keurige warme start is 
ingebouiud: SVSS4785. 

MLM heeft tmee belangrijke uerbeter i ngen ten opzichte uan 
TIM. Ten eerste hebben de L en S commando's een andere 
syntax, maardoor defaults mogelijk uierden. De tuieede 
uerbeter ing wordt geuormd door een softuector in RAM, 
maardoor er commando's aan de monitor kunnen ujorden 
toegeuoegd. Tegenouer de uerbeter i ngen staan een paar 
typische bugs die zijn ouerge-erfd uan TIM, het accepteren 
uan andere letters dan A t/m F in hex getallen is hier een 
uoorbeeld uan. De MLM heeft dezelfde commando's als TIM. 
De MLM in BASIC 4.B is op 1 punt geuiijzigd: bij aanroep uia 
een BRK ujordt de uituoer teruggezet nAAr het scherm. 
Tot zouer de standaard monitoren uoor de Commodores. 



SUPER MOM. 



In het uoorgaande uierd uitgelegd dat de MLM in de 3080-serie 
en in BASIC 4.8 kan uuorden uitgebreid met extra commando's. 
Het oudste, en teuens meest bekende programma dat dit doet is 
SUPERMOH. Deze supermonitor ( nou ja...) iuerd gemaakt door Jim 
Butterfield (een der grootste PET/CBM guru's) en Bill Seiler, 
toendertijd een tuerknemer uan CBM. SUPERMOH uerscheen in 
uerplaatsbare uorm, compleet met een relocater in BASIC, die 
het programma opbergt in de top uan het RAM, maar die top dan 
ook mag zijn. Latere uersies uan SUPERMOH (die uoor BASIC 4.B 
en de 64) hebben een relocater in machinetaal. 
SUPERMOH uoegt in ieder geual de uolgende commando's toe: 
-F XXXX, WW, ZZ Vul het geheugen uan XXXX t/m WW met 
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,T XXXX,WW,ZZZZ 
,D XXXX 



het byte EE. 

Verplaats het blok geheugen XXXX t/m WW 
naar adres EEEZ. 

Disassembler 22 instructies, te beginnen 
op adres XXXX. De getoonde hexadecimal e 
bytes mogen met de schermeditor veranderd 
uiorden . 

.A XXXX instructie Eenuoudige assembler. De assembler 

accepteert mnemonics met hexadecimale 
operanden. Een relatief adres bij een 
branch mag absoluut gegeuen morden ; de 
offset uiordt door de assembler 
uitgerekend. Ha de uertaling uerschi.jnt op 
de uolgende regel automat isch een A en het 
uolgende instructie adres, zodat u alleen 
de instructie behoeft in te typen ; leue de 
schermedi tor ! 

.H XXXX, WW, EE, AA Eoek het geheugenbloU XXXX t/m WW af 

naar de byte-combi nat ie ZZAA. Het aantal 
bytes mag maximaal 32 zijn. De adressen 
uan de qeuonden plaatsen morden op het 
scherm afgedrukt. 
.H XXXX, WW, 'STRIHG Eoek het geheugenblok XXXX t/m WW af 

naar de string STRIHG. De string mag 
maximaal 32 tekens lang zijn. De adressen 
uan de geuonden plaatsen uiorden op het 
scherm afgedrukt. 
.1 Single step. Naar keuze uiordt het 

programma dat begint op het adres uan de 
geredde PC stap uoor stap, danmel langzaam 
uitgeuoerd. Hierbij uiordt iedere 
uitgeuoerde instructie gedisassembleerd en 
uiorden de uiaarden van de registers 
getoond. (Hiet in de CBM-S4). 
Er zijn in de loop der tijd een aantal uarianten op SUPERMOH 
uerschenen die 1 of tuiee commando's meer of minder hebtaen . 
Afhankelijk uan de uersie kunnen ook nog aanuiezig zijn: 

Bereken offset. De branch staat op XXXX en 
moet uiijzen naar WW. 

Disassembleer het blok geheugen uan XXXX 
t/m WW. Speciaal bedoeld uoor de printer 
die uooraf geactiueerd moet uiorden. 
De SUPERMOH uoor de CBM-64 omuat naast de nieuuie commando's 
ook de uroegere MLM commando's omdat dit apparaat geen MLM in 
de ROMs heeft. 

De SUPERMOH-uersies uoor de 3088-serie, BASIC 4.8 en de CBM- 
64 zijn alle gemaakt door Jim Butterfield en beuinden zich in 
het Public Domain. Dit houdt in, dat deze programme's urij 
gekopieerd mogen uiorden; er rusten GEEM auteursr ech ten op. 

Naast de Public Domain uersies bestaan er ook uerscheidene 
uersies uoor de oude PET (met ingebouuide TIM) en de VIC-28, 
meestal door een fanaat uia een listing omgeschreuen uoor 
deze apparaten. 



.C XXXX, WW 
.P XXXX, WW 



EXTRAMOM. 
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Voor sommigen mas SUPERMOH met mooi en uitgebreid genoeg. 
Dus maakte Bill Seiler een grotere monitor, EXTRAMOH geheten . 



. 0 XXXX 



.U 



EXTRAMOH kan alles mat SUPERMOH kan plus (uiteraard) nog 
meer. De extra commando's zijn: 

-B XXXX,VV Zet een breekpunt op XXXX. Dit breekpunt moet 

W maal gepasseerd tuorden uoordat op single 
step mordt overgegaan . 

Voer het programma op XXXX uit totdat net 
met B ingestelde breekpunt is bereikt en ga 
ueruolgens ouer op single step. 
Zet de noodstop aan . Legt de interrupt om 
naar een STOP-toets test zodat een programma 
met deze toets onderbroken kan tuorden . 
Eet de noodstop tueer uit. 

Dump het geheugenblok XXXX t/m WW i n hex 
en ASCII. Veranderen met de schermeditor is 
toegestaan. (I uit SUPERMOH uerualt: zie Q) . 
.N XXXX, WW,ZZZZ, AAAA, BBBB Een relocator die zo i ngew i k b e 1 d 
is dat niemand hem ooit gebruikte: Verschuif 
het blok XXXX t/m WW naar ZZZZ en uerander 
alle absolute adressen in het gebied AAAA t/m 
BBBB die op het uerplaatste stuk betrekking 
hebben . De tioeede stap is dan; 
-N XXXX , WW , ZZZZ , AAAA , BBBB W Pas veruolgens adrestabe 1 1 en 

aan, met dezelfde criteria als bouen. 
EXTRAMOH is er uoor de 38BB-serie en BASIC 4.B. Het is nooit 
erg populair geutorden in Hederland. Versies uoor de PET, de 
VIC-2B en de CBM-S4 ontbreken. 



.1 XXXX, WW 



MICROMOH. 



Onaf hankel i jk uan het door Commodore zelf uerspreide EXTRAMOH 
ontstond MICROMOH, de meest uitgebreide monitor UO or CBM- 
computers. MICROMOH heeft als bi jzonderheid dat het uoor- en 
ACHTERiuaards kan dumpen en disassembleren , simpeltueg door 
respectiuelijk de cursor-domn danmel de cursor-up toets vast 
te houden. Hierbij zorgt MICROMOH uoor de repeat op de toets 
Karakteristiek uoor MICROMOH is, dat het geen gebruik maakt 
van de in het ROM aanwezige MLM. De MLM is hiertoe in 
MICROMOH zelf opgenomen . Dit is gedaan om het dump vis. de 
cursor-toetsen mogelijk te maken, en de ASCII-dump aan het M- 
commando toe te uoegen . Vender is MICROMOH een combinatie uan 
SUPERMOH en EXTRAMOH. 

De uolgende commando tuerden naast de reeds bestaande 
toegeuoegd: 

• B 2et breekpunt, zie B onder EXTRAMOH. 

.C XXXX,WW,ZZEZ Vergelijk het geheugen van XXXX t/m WW 

met het blok dat begint bij ZZZZ. 
Ga naar BASIC en schakel de MICROMOH 
interrupt uit. 

Ga naar MLM en schakel de MICROMOH 
interrupt uit. Dit is nodig om in de MLM 
op cassette te kunnen sauen. 
Single step, zie 0 onder EXTRAMOH. 
Bereken offset, zie C onder SUPERMOH. 
Single step, zie I onder SUPERMOH. 
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-O XXXX, WW 

.u 
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-Z Toggle karakterset. 

.*XXXX Hex naar decimaal, ASCII en binair 

conuersie. 

.#XXXXX Decimaal naar hex, ASCII en binair 

conuersie . 

. 7.XXXXXXXXXXXXXXXX Binair naar hex, ASCII en decimaal 

conuersie . 

."string ASCII naar hex, decimaal en binair 

conuersie . 

.+ XXXX,VVVV Tel XXXX en WW bij elkaar op. 

.- XXXX, WW Trek XXXX en WW uan elkaar af . 

XXXX, WW Bereken de checksum uan het blok XXXX 

t/m WW. 

MICROMOH kan indien geujenst uiorden uitgebreid, en heet dan: 
MICROMOH Plus. De extra commando's zijn: 

.d XXXX, WW Disassembler uoor de printer. Zie P bij 

SUPER MOM. 

.1 "NAAM" Laadt het programma MAAM uan schijf die 

default is i.p.u. cassette 1. 
.m XXXX WW Dump XXXX t/m WW in hex en ASCII, 16 

bytes per regel . Voor de printer. 
-P Schakel de printer aan of uit. 

.1 "HEADER" Schakel een kopregel uoor de printer in. 

. J "MAAM" Laat het laadadres uan programma NAAM 

zien. Alleen uoor schijf. 
.V XXXX , "MAAM" Laadt het programma MAAM op adres XXXX. 

Alleen uoor schijf. 
Naast deze commando's is ook nog een DOS-hulp opgenomen , die 
bij CBM-sch i j f gebru i kers bekend is als DOS-support. 
MICROMOH (Plus) is er uoor de 3BB8-serie en BASIC 4.B. Een 
uersie uoor de CBM-S4 bestaat ook, maar heef t niet alle 
commando's uan de uersies uoor de andere apparaten. 



MEWTIM S. 

Een monitor die geheel los staat uan de uorige monitoren. 
NEWTIM S is uan onduidelijke afkomst: de geruchten wijzen in 
de richting uan Zwi tser 1 and - MEWTIM S en EXTRAMOM zijn 
ongeueer euen krachtig, waarbi j NEWTIM S een betere 
ondersteun i ng uan de schijf unit geeft, en een mooiere 
implementatie uan de printer heeft ingebouiud. Vanmege de 
(mogelijk) Zwitserse afkomst moeten de commandolet ters met 
Duitse i.p.u. Engelse moorden ge-associeerd uiorden . De extra 
commando's naast die uan MLM zijn: 

-A XXXX instr. Assembler, zie A bij SUPERMOM. 

. B XXXX,W Het Breekpunt, zie B bij EXTRAMOM. 

.C XXXX , WW , ZZZZ Verschuif een blok geheugen . Zie T bij 

SUPERMOM. 

.CU XXXX, WW, ZZZZ Reloceer een blok geheugen. 

-D XXXX Disassembler, zie D bij SUPERMOM. 

.D XXXX, WW Disassembler, zie P bij SUPERMOM. 

-D XXXX- Disassembleer uan XXXX t/m *FFFF . 

.E XXXX Execute tot breekpunt. Zie Q bij EXT RAMON . 

. F XXXX, WW, ZZ Vul geheugen, zie F bij SUPERMOM. 

.H XXXX, WW, /ZZ/ Zoek naar byte(s). 

.H XXXX, WW,/ZZ/AA/ Als uorige, doch vervanq ZZ door AA. 
.H XXXX, WW'/string/ Zoek naar string. 

.H XXXX , WW ' /str i ng 1 /str i ng2/ Als uorige, ueruang stringl 

door string2. 
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. I XXXX , WW 

. J XXXX- 

. K XXXX, WW 

. K XXXX- 

.0 XXXX 



TE 



TA 



Dump in hex en ASCII, zie I bi j EXT RAMON. 
Dump in hex en ASCII, van XXXX t/m $FFFF . 
Controieer het blok XXXX t/m WW op i lie- 
gale opcodes. 

AIs uorige, doch eindadres=$FFFF. 
Single step, huidige instructie in de top- 
regel wan het scherm, z oda i de uituoer uan 
net uitgeyoerde p^ogramma ?ichtbaar blijft. 
Sohakelt de printer in. De uituoer uan de 
commando's D, E, H, I, K, en W uerschi jnt 
r.u oak op papier, met automatische pagine- 
r i ng , 

Schakeit de printer uit. 

Stuur de string tekst naar de printer. 



.V XXXX,WW,ZZZZ Zie C bi j MICR0MON. 
M XXXX Single step, zie I fo i j SUPERMON. 

•V Toort de CPU- u I aggen in binair. He mogen 

met de editor birair ueranderd uiorden . 
Zet de interrupt op de default. 
Conuerieer uan hex ns^r deoimaal. 
Conuerteer wae decimaal naar hex. 
Conuerieer uan hex nar birair. 
Tel XXXX en WW bi j eltaar op. 
Trek XXXX en WW uan elkaar a? . 
Bereker XXXX AMD WW* 
Bereken XXXX OP WW, 
Bereken XXXX EOR WW. 
Injerteer XXXX, 

Bi j wonder aan MEhlTIM S is het feit dat het H-commando net 
a i 1 eer Uan roeken, naar ook nog vervangen, Dit commando ujordt 
nog fraaier door de mogel i j k heid met don't cares te zoeken, 
EM en te ueruangen. . Ter<«r-lotte beuat NEWT I M 3 de DOS-support, 
die n iet a 1 5 een i n de monitor, naar ook in BASIC merit t. 
MEMTtff S is er voor de oude PET. de 3880-serie, en alle 
versies van BASIC 4.B. Voor dta 54 meet hi.i nog uicrden 
aangepasi , 

AIs NEW TIM C bestaat een versie aangepast aan de GTE/Sgner tek 
S5C32 * EM1 



.2 

,* XXXX 

. # HXXHX 

.7. XXXX 

.*+ XXXX, WW 

. * - XXXX , WW 

. *A XXXX, WW 

. *o xxxx , ww 

.*££ XXXX , WW 
.*E KKXK- 



e auieur van dii verhaal gebruiki NEWT I M C 



2o, dat was het dan. Een overzicht uan alle 

man i \ orprogramma ' s voor de meeste Commodore computers. Voor 
de 3860-serie is iedere monitor beschikbaar ; voor de VIC 



vrijutel geeneen. 
De 54 koflit er ook mat bekaaid af 



en MICR0M0H. 



DE VOLBENDE EDITIES VAN DE 6502 KENNER ZIJN NOG VERKRI JGBflflR DOOR 
HET STORTEN OF OVERSCHRIJVEN VAN FL. 9.00 PER EXEMPLAAR OP GIROREKE- 
NING 3757649 TEN NAME VAN DE PENNIN6HEESTER KIM 6EBRUIKERSCLUB NED. 
TE KRIMPEN A.D. IJSSEL. " 
NR. 16 
NR. 18 
NR. 20 
NR. 22 
NR. 24 
NR. 26 
NR. 28 
NR. 30 
NR. 32 
NR. 34 



ME I 1981 


NR. 17 


AUG 1981 


0KT 1981 


NR. 19 


DEC 1981 


NIET MEER LEVERBflflR 


NR. 21 


NIET MEER LEVERBflflR 


AUG 1982 


NR. 23 


OKT 1982 


DEC 1982 


NR. 25 


FEB 1983 


NEI 1983 


NR. 27 


AUG 1983 


OKT 1983 


NR. 29 


DEC 1983 


FEB 1984 


NR. 31 


APR 1984 


JUN 1984 


NR. 33 


AUG 1984 


OKT 1984 


NR. 35 


DEC 1984 
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FORTH OP JUNIOR COMPUTERS PEEL 1. 



door: G. van Qpbroek 
Hooglanden 29 
9881 LB Zuidhorn 



(GEVOP) 



1. Inleiding. 

Het is mi jn bedoeling het gebruik van de taal FORTH 
binnen de KIM-clob te stinuleren en te proberen enige 
duidelijkheid te verschaffen in de verschillen die 
bestaan tussen de verschillende versies van FORTH die 
door de leden gebruikt worden. Ik ben van plan in een 
serie artikeltjes een aantal zaken aan bod te laten 
konien die voor de beginnende en ervaren FORTH pro- 
graraieur interessant zijn. Ik denk hierbij onder an- 
dere aan de volgende zaken: 

- Een algemene inleiding over FORTH. 

- Standaards (fig-FORTH, 79-standaard, 83-standaard, 
PE-FORTH voor SENIOR) . 

- Het gebruik van de EDITOR. 

- Het gebruik van de ASSEMBLER. 

- TAPE-ROUTINES voor onderlinge uitwisseling. 

Reacties op (en bijdragen voor) deze serie publicaties 
kunt u fcwijt bij de auteur van dit artikeltje en de 
redactiesecretaris. On practische redenen verzoeken 
wij u uitsluitend schriftelijk te reageren. 

On raijzelf enigzins te plaatsen lijkt het mi j goed mij- 
zeH een beetje in te leiden. Ik ben in het bezit van 
een PROTON SENIOR systeem en werk hierop vrijwel uit- 
sluitend in FORTH en ASSEMBLER. Ik werk al vanaf het 
moment dat raijn systeem operationeel was (januari '84) 
in FORTH. In eerste instantie was dit de door de 
f irna PROTON geleverde PE-FORTH. Daar deze versie 
echter zeer sterk van de rein of nieer algemene stan- 
daard FORTH a-fwi jkt ben ik ertoe over gegaan mijn 
ontwikkelde prograraraa's ook geschikt te maken voor 
de FORTH die via de cassettebibliotheek verspreid 
wordt. Ik heb daarom deze FORTH aangeschaft, com- 
pleet met de volledige set docunientatie. Omdat deze 
FORTH niet met disk kan saraenwerken heb ik vanuit de 
source! istino de fig-FORTH opnieuw geinstalleerd. Ik 
heb deze FORTH geschikt gemaakt voor het werken met 
schijven onder het PROTON DOS en uitgebreid met de 
EDITOR, een zelf ontwikkelde ASSEMBLER en de fig-) 
79 standaard conversies. Er wordt aan gewerkt om de- 
ze versie van FORTH geschikt te maken voor meerdere 
configuraties rond een JUNIOR en dan te verspreiden 
via de cassettebibliotheek. 

2. Algemene inleiding over FORTH. 



FORTH is ontwikkeld door Charles H. More om de tele- 
scoop van het Kitts Peak Observatorium te besturen. 
De reden van het ontwikkelen van een nieuwe taal was 
het feit dat eigenlijk niet een van de toen bestaande 
talen goed geschikt was voor besturingsdoeleinden. 
Ik ben van mening dat More er inderdaad zeer goed in 
geslaagd is een taal te ontwikkelen voor besturingen. 
Aan de hand van een voorbeeld zal ik trachten dat dui- 
delijk te maken: 

Stel we laten een model spoorbaan door onze JUNIOR be- 
sturen en gebruiken hiervoor de taal FORTH. We hebben 
de wissels genummerd van 1 t/m 18 en de seinen van 
1 t/m 28. Voor het station staat een trein te wachten 
om op spoor 1 binnen te konen. We hebben stukjes FORTH 
geschreven om wissels om te zetten 



WW 5! £ BUM* miWSLm 

we dan intypen; 

1 WISSEL-KROM 2 WISSEL-RECHT 5 SEIN-ROOD 1 SEIN-GROEN 

en de trein zal binnenkomen en wachten voor sein 5. 

We kunnen zelfs een stap verder gaan door het volgen- 
de te doen: 

: >SP00R1 1 WISSEL-KROM 2 WISSEL-RECHT 
5 SEIN-ROOD 1 SEIN-GROEN ; 

We hebben nu de de-fini tie >SP00R1 gemaakt en de trein 
zal op spoor 1 binnenkomen als we intypen: 

)SP00R1 

Hoewel het bovenstaande voorbeeld misschien de illusie 
geeft dat FORTH alleen geschikt is voor besturingen 
is dat niet juist. ik ben van mening dat FORTH een mo- 
derne gestructureerde taal is die voor bijna alle toe- 
passingen geschikt is. Het enige waar FORTH minder ge- 
schikt voor is is het uitvoeren van inqewikkelde be- 
rekeningen omdat floating-point getallen ontbreken. 
Er wordt door mij gewerkt aan een pakket voor het wer- 
ken met floating-point getallen in FORTH. Ik hoop hier 
in deze serie artikeltjes nog op terug te komen. 

Afgezien van -floating-point heeft FORTH slechts een 
nadeel. FORTH is een taal die sterk a-fwi jkt van alle 
andere talen. Het gevolg hiervan is dat het voor een 
beginner raoeilijk is zich FORTH eioen te maken en pro- 
grama's te schrijven die echt FORTH-stijl zijn. Dit 
wordt voornamelijk veroorzaakt door het feit dat FORTH 
gebruik maakt van een zogenaamde "STACK". FORTH Kent 
wel var label en, maar deze moeten meer opgevat worden 
als geheugen zoals bijvoorbeeld de geheugens op zak- 
rekenmachines gebruikt worden. Het gevolg van dit 
alles is dat bewerkingen in de zgn. Reversed Polish 
Notation (RPN) geschreven moeten worden. D.w.z. het 
optellen van 12 en 23 wordt geschreven als: 

12 23 + 

Deze notatie is exact gelijk aan de notatie die bij 
de HP zakrekenraachines gebruikt wordt. 

Een ander kenmerk van FORTH is dat alles dat gedefi- 
nieerd wordt onderdeel wordt van de taal zelf . Dat 
betekent dat alles wat gedefinieerd is gebruikt kan 
worden in nieuwe de-fini ties maar ook vanaf het toet- 
senbord uitgevoerd kan worden. Dit maakt dat het testen 
van nieuwe oefinities (in FORTH heten dit "woorden") 
heel eenvoudig wordt. Uit het bovenstaande voorbeeld 
kunnen eerst de afzonderlijke woorden WISSEL-RECHT 
en SEIN-ROOD getest worden waarna > SPOOR 1 getest kan 
worden. Verder is het zo dat er bijvoorbeeld een 
nieuw woord TREINLOOP gemaakt kan worden waar > SPOOR 1 
weer een onderdeel van vormt. 

Intern bestaat FORTH uit een woordenlijst (DICTIONARY) 
waarin alle gedefinieerde woorden staan, gevolgd door 
verwijzingen naar de wooden waaruit de detini tie be- 
staat. Deze verwijzingen worden tijdens het laden van 
het FORTH woord ingevuld. Als FORTH vanaf het toet- 
senbord een opdracht krijgt zoekt hij in de woorden- 
lijst de opdracht (het woord) op en voert de woorden 
waaruit het gevonden woord bestaat uit. De verwij- 
zingen naar de andere woorden zijn gecompileerd zo- 
dat FORTH niet opnieuw naar deze woorden hoeft te 
zoeken. Om deze reden wordt FORTH een interpreter/ 
compiler genoemd. (De opdrachten worden geintepre- 
teerd maar de verwijzingen zijn gecompileerd). 
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3. Gebruik van de stack. 

Hoewel ik absoluut niet van plan ben een cursus FORTH 
te schrijven zijn er toch enkele zaken waar ik aandacht 
aan wil besteden, Voor boeken waaruit FORTH gel eerd 
kan worden verwijs ik naar net hoofdstuk literatuur. 

Zaals al is opgenerkt, wijkt het werken net oetallen 
in FORTH sterk af van wat wij over het algeneen gewend 
zijn. Dit betekent dat beginners er vrij veel noeite 
nee hebben progranna's te schrijven waarbij echt in 
FORTH-stijl geprogranneerd wordt. Ik Mil in dit hoofd- 
stuk enkele nandreikingen geven voor het in stijl wer- 
ken net de stack. In de gegeven voorbeelden zal ik ge- 
bruik naken van de notatie die ook door de FORTH INTE- 
REST GROUP oebruikt wordt. Deze notatie heeft de vorn: 

{ nl n2 - n3 n4 ) 

waarbij de getallen links van "-' voor het uitvoeren 
van het betreffende woord op de stack staan en de ge- 
tallen rechts van "-* na het uitvoeren van het woord. 

Een getal wordt op de stack gezet door dit getal in 
te typen. Het verwijderen van een oetal van de stack 
gebeurt door het getal af te drukken (net behulp van 
het FORTH woord V> of door het FORTH woord 'DROP'. 

Alle berekeningen vinden plaats net getallen die op de 
stack staan. Het resultaat van deze berekeningen wordt 
ook weer op de stack geplaatst: 

Bijvoorbeeld het FORTH woord "+' : 

( nl n2 - n3 ) 

telt de getallen nl en n2 op de stack op en plaatst de 
son n3 weer als resultaat op de stack. Hetzelfde geldt 
voor al I e andere rekenkundige bewerkingen. Ik beperk 
ne bij deze voorbeelden uitsluitend tot gehele zgn. 
"single precision" oetallen in de range -32768 t/n 
+32767. Het is nogelijk net zgn. "double precision' 

?etallen te werken die een veel groter bereik hebben. 
n PE-FORTH is het zelfs nogelijk net floating-point 
getallen te werken. Ik wil hi er op dit moment met op 
ingaan. Voor details over deze zaken verwijs ik naar 
de literatuur en de handleiding van PE-FORTH. 

Ten opzichte van de nornale (infix) notatie heeft de 
RPN (postfix) notatie het voordeel dat het gebruik van 
haakjes geheel overbodig is. 

Voorbeeld: <2+3>X(5+15)/((4+l>X(7-3>) wordt: 
2 3 + 5 15 + X 4 1 + 7 3 - X / 

waarna het resultaat op de stack korat te staan. 

Zoals al is opgenerkt kan er in FORTH net variabelen 
gewerkt worden, Voor het beqrijpen van de volgende 
voorbeelden is het noodzakelijk even te laten zien 
hoe dat gaat. 

1) Definitie van een variabele: VARIABLE naan 

2) Een variable een waarde oeven: waarde naan ! 

3) Een waarde uit een variaBele op de stack zetten: 

naan 6 

Opnerking: Deze voorbeelden zijn in 79-standaard FORTH, 
in andere versies van FORTH kunnen afwij- 
kingen zitten. Ik kon daar in een later sta- 



Het lijkt logischvariabelen te pebruiken on waarden 
aan woorden door te geven zoais Bijvoorbeeld in BASIC 
of COMAL subroutines gebruikelijk is. Een FORTH progran- 
na on een tafel van vernenigvuldiging af te drukken 
ziet er dan als volgt uit: 



VARIABLE MULCNT 
VARIABLE PRODUCT 



VARIABLE MULCTR 



: TAFEL 21 1 DO I MULCTR ! MULCNT 8 

MULCTR B X PRODUCT ! 
CR MULCTR 6 . ."X" 
MULCNT 8 . ." =" PRODUCT 8 

LOOP 



Aanroep bijvoorbeeld: 8 MULCNT ! TAFEL 

Als we echter alle berekeningen op de stack uitvoeren 
krijgen we een progranma in FORTH-stijl zonder het ge- 
bruik van variabelen: 

: TAFEL ( n - ) ( drukt voor n de tafel van verne- ) 
( nigvuldiging af ) 
21 1 DO CR I DUP . ."X" OVER DUP . 
." =" X . 



Aanroep bijvoorbeeld: 8 TAFEL 

On de zaken nog iets duidelijker te naken geef ik ook 
het equivalent van het progranma in BASIC: 



18 INPUT MULCNT 

28 GOSUB 1886 : REM TAFEL 

38 END 

1888 FOR MULCTR=1 TO 28 

1818 PRINT : PRODUKT=MULCTRXMULCNT 

1828 PRINT MULCTR;"X";MULCNT;"=";PRODUKT; 

1838 NEXT MULCTR 

1848 RETURN 

Ik ben van nening dat progranna's in FORTH-stijl zo 
nin nogelijk gebruik noeten naken van variabelen, Dit 
betekent dat net doorgeven van paraneters zoveel no- 
gelijk via de stack noet gebeuren en dat tussenre- 
sultaten ook op de stack noeten worden bewaard. Deze 
aanpak heeft wel als nadeel dat de leesbaarheid van 
FORTH progranna's erg slecht kan worden. Het is daar- 
on erg beiangrijk het progranma rijkelijk van conraen- 
taar te voorzien van wat en in welke volgorde er op de 
stack staat. Ik vind dat variabelen gebrui" 
worden voor neer algenene zaken zoals het 
op welk schern er gewerkt wordt e.d. 

4. Literatuur. 



Ik hoop dat ik net deze publicatie een aantal nensen 
heb overgehaald on FORTH te leren en te gaan gebruiken. 
On FORTH te leren kan gebruik worden genaakt van de- 
volgende boeken: 

A. Win-field: Flitsend FORTH, uitg. Acadenic Service 
ISBN 96 6233 1157 (nederlands) 

Drs. F.J. Meijer en F. Lenaire: FORTH OK 
uitg. Nolfkanp 

ISBN 98 78556 8687 (nederlands) 
L. Brodie: Starting FORTH, uitg. Prentice-Hall Inc. 
ISBN 8 13 842922-7 (engels) 

FORTH voor de JUNIOR is te verkrijgen via de redactie- 
secretaris: W.L. van Pelt, Jacob Jordaensstraat 15 
2923 CK Krinpen a.d. Ussel. Tel. 81887 - 19881. 



34E2- 
34E5- 
34E7- 
34EA- 
34ED- 
34F0- 



34F8- 
34FA- 
34FD- 
3500- 
3503- 
3505- 
3508- 



20 F3 11 
09 38 
20 34 
CE E6 
4C 07 
20 F3 
A9 31 
20 34 
09 38 
8D E6 
20 E8 
20 E8 
09 41 
20 34 13 
20 F3 11 



13 
34 
34 
11 

13 

34 
11 
11 



0010 
0020 
0030 
0040 
0050 
0060 
0070 
0080 
0090 
0100 
0110 
0120 
0130 
0140 
0150 
0160 
0170 
0180 
0190 
0200 
0210 
0220 
0230 
0240 
0250 
0260 
0270 
0280 
0290 
0300 
0310 
0320 
0330 
0340 
0350 
0360 
0370 
0380 
0390 
0400 
0410 
0420 
0430 
0440 
0450 
0460 
0470 
0480 
0490 
0500 
0510 
0520 
0530 
0540 
0550 
0560 
0570 

0580 CIJF 
0590 
0600 
0610 
0620 
0630 
0640 
0650 
0660 
0670 



CRLF 
PRCHO 
PRSP 



COOR 
NUMM 



LS 

***** COORDINOTEN BIJ USURPOTOR II ***** 
***** SCHOOKPROGRAMMO ***** 

Benodiad : Elektuur JUNIOR-comouter met 
interfacekaart en monitor. 

Outeur : Gamiel de Lv 

E. Blaesstraat 7 

B - 9218 GENT. Belaie. 

Zie ook : DE 6502 KENNER 8 ( 1984) 1 (FEB) 8 

DE 6502 KENNER 8 (1984) 4 <OUG> 22-24, 32 

USURPOTOR II is een uitaave van 
uitaeveri i WOLFKOMP te Amsterdam. 
Bestelnummer: ISBN 90-70556-06-5 

De aanpassina welke Dirk M. Verziiden in DE 
6502 KENNER nr. 33 van auaustus 1984. Daa. 22 
en 23 bekendmaakte vond ik f i in. Toch moeten 
er erqens een oaar f out les inaeslooen ziin. 
De onderste stukken komen niet luist od scherm 
en de computer aeeft aeen teaenzetten. Ik heb 
de zaak als volet oooelost: 
3436 - 4C 3C 22" 
34B6 - 00 
34B7 - 20 50 4C 
34BA - 54 44 4B 
34BD - 30 00 00 

De onderstaande aanvullina geeft rond het 
schaakbord coord mat en (van 0 to 8 en van 
0 to H), zoals men in schaakboeken ziet. 
Het intoetsen van de eiaen zetten is hier- 
door eenvoudiger. 

Eerst moet het oorsDronkel i ike oroaramma 
waarin de Datches uit DE 6502 KENNER nr. 30 
en 33 ziin aancebracht, noa worden aewi iziad 
als volat: 

3426 - DO 67 was DO DF 
3428 - 4C FO 34 was 20 E8 11 
348F - 4C E2 34 was EO EO EO 

Monitor routines 



LETT 



DE $11E8 
DE *1334 
DE *11F3 

JBO *34E2 

■ 

JSR PRSP 
LDO #'8 
JSR PRCHO 
DEC *34E6 
JMP STORE 
JSR PRSP 
LDO #' 1 
JSR PRCHO 
LDO #'8 
STA *34E6 
JSR CRLF 
JSR CRLF 
LDA #'A 
JSR PRCHA 
JSR PRSP 



: carriaqe return & linefeed 
: print character on screen 
: print a space 



: print ciifer 

: verminder ciifer 

: print 1 

: zet 38 terua 

: 2 x naar rechts 

: print letters 

: 2 x dalen 



23 



LiTB 5 □ 3 



350B- 20 F3 11 
350E- EE 04 35 
3511- AD 04 35 
3514- C9 49 
3516- DO EB 
3518- A9 41 
351ft- 8D 04 35 
351D- 20 E8 11 



3520- 4C 2B 34 



22FA- 4C 70 35 



3570- 
3571- 
3573- 
3576- 
3578- 
357B- 
357E- 
3580- 
3581- 



48 

fl9 OC 
20 34 
ft9 84 
8D F7 
2C D5 
10 FB 
68 

4C 00 



13 

lfl 
1ft 



34 



//OOOO, 3584,3584 
>RUN $16D5 

TE KOOP: 



0680 
0690 
0700 
0710 
0720 
0730 
0740 
0750 
0760 
0770 
0780 
0790 
0800 
0810 
0820 
0830 
0840 
0850 
0860 
0870 



0890 
0900 
0910 
0920 
0930 
0940 
0950 
0960 
0970 
0980 

0990 CLSR 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 



JSR 
INC 
LDfl 
CMP 
BNE 
LDfl 
STfl 
JSR 
JMP 



WIT/ZWART? 
STORE 



RDFLAG 
CNTD 



DE 
DE 



PRSP 

♦3504 : 
♦3504 : 
#$49 
LETT 

#'A : 

$3504 

CRLF 

WIT/ZWART? 

$342B 
$3407 



nieuwe letter 
is H al aeorint 



neen 
ja. zet 



41 terua 



W. L. van Pelt: Qo eenvoudiae wiize kan 
net schaakoroaramma noa zodanio aewi i- 
ziad worden dat we net omhooa scfollen 
van net schaakbord teaenaaan, door het 
inbouwen van een CLSR met delav van 132 
mSec i.v. m. de tiid die een monitor kan 
; vraaen om het scherm schoon te maken. 
Er wordt aebruik aemaakt van de timer. 



CA 



DE $1AD5 
DE $1AF7 

BA $22FA 

JMP CLSR 

.'BA $3570 
• 

PHA 
LDA 
JSR 
LDA 
STA 
BIT 
BPL 
PLA 
JMP $3400 



#$0C 
PRCHA 
#$84 
CNTD 
RDFLAG 
CA 



JUNIOR Coaouter + interface + 24 K Raa + Elekterainal 
♦ keyboard + boeken i. 2. 3 en 4. en de Intelekt schaak- 
coaouter. alles ooed werkend in een kooo: Fl. 1000.==. 
K. van Nunsoeet. Tel. werk: 043 - 478208 
Tel. thuisi 043 - 473561 



OHIO DOS V3.3 

flls je bestaande routines in aachinetaal aan Hilt oassen 
van de standaard JUNIOR (of andere) naar de DOS-versie dan 
de volgende adressen/routines van be 



Standaard 
$I2T£ 



$1334 



DOS 
$2340 



Routine 

RtfOTaet echo 



$2336 RECCHfl zonder echo 



$2343 PRCHfl 



Deze routines kij- 
ken we lk inout de- 
vice inoesteld is. 
waarna de imedruk 
te waarde in $2363 
koat te staan. 
Deze routine zet 
zelf de waarde van 
accu naar $2363. 
waarna hi] uitoe- 
orint wordt vol- 
aens het inoestel- 
de out out device 
(beeldschera en/of 
orinter). 



$128F $2D92 PRBYTE 
Wout van Dinther. Molenriinselaan 27. 5262 TN VUGHT. 



flaa reaister 
count 1024 T 



: bewaar inhoud akku 

: zend form feed naar monitor 

: wachtlooD 132 mSec 



: en terua 



HOM TO CHANGE THE MEMORY MAP OF YOUR FORTH SYSTEM ON JUMTflB 

By: 6ert van ODbroek. Hooqlanden 20, 9801 LB Zuidhorn (NL) 

The FORTH froa the cassette library for the JUNIOR-coaouter 
uses only ROM-addresses less then $11000. When vour svstea 
has tore RftM you can adaot FORTH bv the following changes: 



Calculate the new values of: 

ERflM ; End-of-RflM+1 

MEM = ERftM - $4000 ; Beain of taDe buffer (RflM-disk) 

UflREft = MEM - $ 80 : Beoin of user area 

DflREfl = UflREfl - $ 420 : Begin of disk buffers 

Put ERflM in location > $34B8 

Put MEM in locations: $3480. $3899 

Put UflREfl in locations: $2010. $2602 

PUT DflREfl in locations: $2696. $31C4. $31CF 



the call of 
by the natch: 



as $2813 becoaes $3F0D. 



: After these charaes. old words written to taoe bv 
the word TO-TAPE can no lonaer be loaded. 



On oage 21 of DE 6502 KENNER nr. 34 av solution on recursi- 
ve was not Dublished well. It ouaht to be as follows: 
: MYSELF LATEST PFA CFA , ■ IMMEDIATE 
: RECURSIE .* 6502 " R> DROP (don't let the return-stack ) 

(flow over ) 

MYSELF : 
Another exaaole: 

: RECFflC (coaoute n! recursive ) 

DUP 1 ) IF DUP 1- MYSELF ♦ ENDIF : 

Your call: n RECFAC 
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NOTULEN VAN DE ALGEMENE JAARVERBADER I NG DD. 24-11-1984 
Ui trei king publ i katie-aanmoedigingspremie (s) 

Namens de jury maakt Anton Mueller bekend dat de tweede prijs is 
toegekend aan Piet Fr arisen voor zi j« publ i cat ie over de koppe- 
ling van de JUNIOR aan net Proton DOS- De eerste prijs wordt 
toegekend aan Keen van Nieuwenhove in verband met zijn publica- 
tie over de omzetting van een 8080 DOS naar 6502 assembler en 
de implementatie daarvan op de JUNIOR. 

Op en i n g van d e ver g ad er i n g 

De voorzitter heet. de aanwezigen welkom, maar faetreurt het. dat. 
de apkomst 1 aag is. Het ligt in de bedoeling in de toekomst de 
j aarvergader i ng in het begin van het ja\ar te gaan houden. Dit. is 
praktischer in verband met de bespreking van het f inancieel 
j aar verslag en de begroti ng van het volgend jaar. 

Notulen jaarvergaderi ng dd. 19-11-1983 

Er zijn geen opmer k i ngen , het verslag wordt door de vergadering 
aangenamen . 

Financieel jaar verslag 1983 



De voorzitter memoreert dat Riet Upho-ff, ondanks het. fait dat 
zij haar functie als penni ngmeester per 01-01-1984 had neerge- 
legd, toch bereid is geweest dit jaar de f inancien te beheren. 
Het boekjaar 1983 blijkt met een groot. posit ie-f sal do te zijn 
af gesl oten . 

De vergadering vraagt zich af hoe het grate verschil tussen de 
portikosten voor de ver z ending van de 6502 KENNER en over if e 
portikosten te verklaren is. Het bestuur verklaart. dat. met name 
de toegenomen akt i vi tei ten van de redact! e (paperwareservice, 
cassettes, propaganda) tot een stijging van de kosten hebben 
geleid. Verder zijn in deze post oak de portikosten van het 
secretar i aat en de overige bestuur si eden inbegrepen. Men dient 
over i gens wel te bedenken dat tegenover de uitgaven oak inkom- 
sten best aan, met name van de redact ie. Daarnaast heef t de club 
zich vrij intensie-f bez i ggehouden met propaganda om het ledental 
op pea 1 te houden. 

In het verslag blijkt een -foutje geslopen te zijn in de boeking 
van de rente op de gi rorekeni ng van de club. De rente blijkt op 
de post, reserve-f onds te zijn geboekt. 

Van de kascontr ol ecommi ssi e hee-ft het. bestuur geen verslag mogen 
ontvangen. Wel hee-ft de commissie het kasboek voor accoord 
geparaf eerd. De commissie wordt. voor zijn di ensten bedankt. 
Het bestuur deelt mede dat naar haar mening de boeking van de 
contributies niet juist is gebeurd. Het is niet meer na te gaan 
wanneer de contributies voor welk jaar zijn voldaan. Als gevolg 
hiervan doet. het bestuur het voorstel om de boekhouding door een 
accountant te laten control eren. Dat geeft de nieuwe penni ng- 
meester de mogeli jkheid om met een schone lei te beginnen. Dit 
voorstel is er oak de oorzaak van dat het bestuur geen begroti ng 
voor 1984 en 1985 heeft. gemaakt. Na a-fkomst van het accountants- 
rapport zal dit alsnog voor 1985 gebeuren. Begin 1985 zal deze 
begroti ng aan de 1 edenvergader i ng worden voorgelegd. De heer 
Kan, lid van onze vereniging en accountant van beroep, zal 
gevraagd worden dit rapport samen te stellen. De vergadering 



akkoord met dit voorstel . 
De vergadering doet hrt voorstel de club KIM (en eventueel ook 
de club JUNIOR) tegen restwaarde van de hand te doen. Het 
bestuur zal dit in overweging nemen. 

De heren W. Cuypers en H.C. van Tiel zullen plaats nemen in de 
hi euwe kascontrol ecommi ssi e. 



Verkiezing nieuwe bestuur si eden 

Ruud Uphoff heeft te kennen gegeven dat. hij in verband met 
drukke werkzaamheden het secretariaat zal neerleggen. De verga- 
dering bedankt hem voor bewezen diensten. Op voordracht van het 
bestuur wordt Bert Klein gekozen tot nieuwe secretaris,. Eveneens 
op voordracht van het bestuur wordt John van Sprang, nu reeds 
gewoon bestuurslid, tot penni ngmeester gekozen. Het bestuur 
verzoekt. am een kandidaat voor de vacant e zetel van John van 
Sprang., Ni co de Vries meldt. zich aan en wordt gekozen. 

Rondvraag 



voor de 

vol doende 
die lid 
dat het 
te weinig 



De vergadering geeft. de redact ie een compliment, 
uitstekende wijze waarop de 6502 KENNER wordt verzorgd. 
De vraag wordt gesteld of er binnen de vereniging wel 
aandacht wordt besteed aan de Commodore 64 bezitters 
will en word en van de club. De voorzitter antwoordt 
bestuur er zich van bewust is dat we tot nu toe 
aandacht h ebb en besteed aan de opvang van nieuwe I eden. Anton 
Mueller heeft zich inmiddels bereid verklaart in de 6502 KENMER 
een art i kel enser i e te gaan plaasten die met name op de 
beginnende leden binnen de club gericht. zal z i j n .. Daarnaast 
zullen een aantal ervaren leden zich intensief met het C64 
gebeuren gaan bez i ghouden „ Uitgangspunt daarbij blijft wel dat 
kennisuitwissel ing op hoog niveau de doelstelling van de club 

De vergadering vraagt of de verlaging van de toegangspr i j zen 
voor de b i j een komsten tot een verhoogd aantal bezoekers heeft 
geleid. De voorzitter verklaart dat dit niet merkbaar is. Er 
bl ijkt op de b i j eenkomsten meestal een vaste kern van leden te 
komen. Het is niet te zeggen of cle club op dit moment, geld moet 
toeleggen op de b i j een komsten . Het bestuur houdt zich van harte 
aanbevol en voor gratis locaties. 

Op verzoek van de vergadering zegt de redactie toe bij de uit- 
nodigingen voor de b i j eenkomsten een si tuat i ekaart j e te publi- 
ceren . 



Op het verzoek am 
cj e v e n w e Ike d e 1 e n 
een ancler systeem 
hieraan wel meer 
redactie h i e?r voor 
prograrnma' 



bij listings in de 6502 KENNER beter aan te 
gewijzigd moeten worden, om een programma op 
te laten draaien, antwoord de redactie dat 
aandacht besteed zal worden,, maar dat de 
ook afhankelijk is van de auteurs van deze 
Het probleem heeft echter de aandacht. 



SI ui ting 

De voorzitter sluit de vergadering. 



Wageningen, 25-1 1-1984 



Gert Klein 
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AKTIVA 





1984 


1983 


Inventar i s 
Voor raden 
Te ontvansen 
post en 


3950 
PM 

519 


6770 
PM 

505 


Geldmiddelen 


24007 


2005G 




28476™ 


27331 



?^b5^?_fEf _E'i_5E CEfv1]BER 1984 

PASSIVA 



Vr i J e reserve 

Reserver ins zesde 
u i ts G502 kenner 

Vooru i tontvansen 
cont r i but i e van 
272 cq 282 I eden 

Te beta l en post en 



19B4 1983 
13432 11710 
2400 2400 



12240 12690 
404 531 



STAND VAN BATEN EM LASTEN OVER 1904. 

BATEM 

Cont r i but i e van 

433 cq 409 I eden 
Rec I ame 

Verkoop van G502 

kenne r 
Redact i e inkomsten 
B i Jeenkomsten 
Interest bank, s i ro 









LASTEN. 


19S4 


1983 


Drukkosten 6502 

kenner 
Verzend kosten 


13027 
1093 


11124 
950 


TOTAAL 

fl-f reserver ins 
zesde uitsaven 


14120 
2400 


12074 


TOTAAL 


11720 


12074 


Nasekomen verzend 

kosten uit 19S2 
Redact ie kosten 
Bestuurs kosten 
HCC dasen 
Af schr i j v i ng 
Inventar is 


26 11 

22S9 
2157 

2S20 


201 
2327 
2414 

753 

2460 


TOTAAL UITGAVEN 


21597 


20239 


Te besteden bat i asa l do 




Reserver ins zesde 
uits 6502 kenne r 

Toevoes i ns aan vr i J e 
reserve 


2400 
1722 


2400 
1891 


TOTAAL BATIGSALDO 


4122 


4291 


TOTAAL 


25719 


24530 



1984 1983 



19710 
920 

348 
3351 



18405 
300 

3208 
1316 
529 



25719 24530 



M3 



KENMER 



INVENTGRIS 



schri jfniachine i38i 

printer oki-80 1331 

tractorfeed 1331 

apple II 1332 

Kim computer 1330 

Junior computer 1331 

f l i pover 1330 

twee recorders 1332 

p r i n t e r o K i -34 1 333 

monitor 1333 



aanschaff i nss 
waarde 

1224 
530 
175 

4000 

1234 
333 
310 
334 

23 13 
233 



afschr i J v i risen 
t/m 1383 1334 



£04 
300 
45 
1300 
314 
203 
200 

94 

33 



310 
150 

40 
1000 
320 
100 

30 
100 
350 

70 



11233 

Het af schri j v i ngspercentase bedraagt 



boek waarde 
31-12-34 

310 
140 

30 
1200 

60 

30 

30 
200 
1640 
130 



4523 2820 3350 
25% van de aanschaf f i naswaarde. 



BEGRDTING 1335 



LAST EN 



BftTEN 



Druk k os ten 6502 kenner 
en verzend kosten 6x 
Bestuurs kosten 
Redact ie kosten 
HCC Dagen 
Inventar i s 



14400 
2500 
2500 
1500 
2500 



23400 



Cent r i but i e 

a f 45 400 leden 

GPbrengst 6502 

kenner 
B i J eenkomstevi 
4x inkomsten 
Rec l ame 
Redact i e 

Interest bank, g i ro 



13000 
200 

500 
1200 
3000 

500 

23400 



J. F. v. Sprang 
perm i ngmeeste r . 



M4 



DE 
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0010: 
0020: 
0030 : 
0040: 
0050: 
0060: 

0070: 8C00 
0080: 
0090 : 
0100: 
0110: 
0120: 
0130: 
0140: 
0150: 
0160: 
0170: 
0180: 
0190: 
0200: 
0210: 
0220 : 
0230 : 
0240 : 
0250 : 
0260 : 
0270: 
0280 : 
0290 : 
0300: 
0310: 
0320: 
0330 : 
0340 : 
0350 : 
0360 : 
0370: 
0380: 
0390: 
0600: 
0410: 
0420: 
0430: 
0440: 
0450 : 
0460 : 
0470: 
0480 : 
0490 : 
0500: 
0510: 
0520 : 
0530 i 
0540 : 
0550: 
0560 : 
0570: 
0580 : 
0590: 
0600: 
0610: 
0620 : 
0630: 
0640 : 



FD 1ft 

80 1ft 

81 1ft 

82 lfi 

83 lfl 



96 D2 
F8 D2 
F8 D3 
7B D5 
Fft D6 
00 D7 

70 88 
3D 89 
65 89 
Bft 89 
D5 89 
35 8ft 
Bl 8ft 
C2 8ft 
F9 8fi 
30 8B 
39 8B 
58 BB 
63 8B 



GREEDY DEEL 2 

PHONS BLOEMEN 
VINKELAAN 200 
5702 LX HELMOND 

PMDL2 ORG $8C00 

*** KLfiDBLOK-RftM *** 



02 


00 


VELDPL 


* 


$0002 


VECTOR IN VELD6EGEVENS ROM 


04 


00 


PRPNTL 


* 


$0004 


PRINT-VECTOR 


08 


00 


PMftflNT 


* 


$0008 


OONTOL GREED I ES 


09 


00 


EftTFLG 


* 


$0009 


ETEN / GEGETEN WORDEN 


Oft 


00 


TIMLFT 


* 


$0000 


OONTOL VAKJES OVER 


OB 


00 


JMIL 


# 


$000B 


GEBRUIKT VOOR JMI 


OD 


00 


DIREC 


* 


$000D 


SPEELRICHTING 


OE 


00 


DIRPM 


* 


$000E 


LOOPRICHTING GREEDY 


10 


00 


PMFLflG 


* 


$0010 


VLAGGEN DIE AANGEVEN OF 


18 


00 


PMTIM 


* 


$0018 


VERTRAGINGSTI JDBUFFERS 


20 


00 


HCOORL 


* 


$0020 


HULPCOORD I NATEN I 


22 


00 


MCOORL 


# 


$0022 


HULPCOORD I NATEN II 


24 


00 


PMPOSL 


* 


$0024 


POSITIE VAN GREEDY 


26 


00 


MftPOSL 


# 


$0026 


POSITIE MONSTER A 


30 


00 


PLUSB 


* 


$0030 


OPTELBUFFER (4 BYTES) 


34 


00 


STftRPT 


* 


$0034 


AANTAL PUNTEN PER STERRETJE 


50 


00 


EXTRft 


* 


$0050 


AANTAL EXTRA GEKREGEN GREED I ES 


52 


00 


DIRECft 


* 


$0052 


RICHTINGSBYTE VOOR DIREC. 


53 


00 


CTRLfl 


* 


$0053 


CONTROLBYTES 


58 


00 


PMSPED 


# 


$0058 


SNELHEID GREEDY 


59 


00 


MONNUM 


# 


$0059 


AAANTAL MONSTERS IN SPEL 


60 


00 


MftSTftT 


* 


$0060 


STATUS MONSTER A 


6ft 


00 


MfiDIR 


* 


$0060 


LOOPRICHTING MONSTER A 



*** I/O. TIMER. IRQ. VIDEO *** 

CLKKTI * $1AFD 8 uS TIMER. IRQ 

PAD * $1A80 POORT ft 

PADD * $1A81 RICHTING POORT A 

PBD * $1A82 POORT B 

PBDD * $1A83 RICHTING POORT B 

*** PLAATSEN IN VIDEO RAM *** 



PMRES * 
SCORD * 
TEXTD * 
PUNTD * 
BONUSD * 
TIMBAL * 

NXTSTA * 
PCRT * 
PRINT * 
CLSCR * 
PMMORS * 
PMFIN * 
MONRES * 
RESMON * 
PMfiTTK * 
TXTSET * 
TXTSHW * 
DELftYft * 
TXTSOW * 



$D296 
$D2F8 
$D3F8 
$D57B 
$D6Fft 
$D700 

$8870 
$893D 
$8965 
$8960 
$89D5 
$8A35 
$6AB1 
$8AC2 
$8AF9 
$8B30 
$8B39 
$8B58 
$8B63 



RESERVE GREEDIES 
SCORE 

BEGIN VAN TEKSTKADER 
AANTAL PUNTJES NOG OVER 
BONUS OP EINDE VAN STAGE 
TIJDBALK 



25 




KENMER 
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0650 

0660 

0670 

0680 

0690 

0700 

0710 

0720 

0730 

0740 

0750 

0760 

0770 

0780 

0790 

0800 

0810 

0820 

0830 

0840 

0850 

0860 

0870 

0880 

0890 

0900 

0910 

0920 

0930 

0940 

0950 

0960 

0970 

0980 

0990 

1000 

1010 

1020 

1030 

1040 

1050 

1060 

1070 

1080 

1090 

1100 

1 110 

1120 

1130 

1140 

1150 

1160 

1170 

1180 

1190 

1200 

1210 

1220 

1230 

1240 

1250 

1260 

1270 

1280: 




PMDIS * 
DECBAL * 
* 
* 



DEEL 2 

*** PLAYER ROUTINE *** 




8C00 20 
8C03 A5 
8C05 85 
8C07 A5 
8C09 85 
8C0B 20 
8C0E A5 
8C10 AO 
8C12 31 
8C14 DO 
8C16 A5 
8C18 31 
8C1A FO 
8C1C 85 
8C1E 20 
8C21 20 
8C24 20 
8C27 20 
8C2A Bl 
8C2C C9 
8C2E 90 
8C30 A2 
8C32 DD 
8C35 FO 
8C37 E8 
8C38 EO 
8C3A DO 
8C3C 20 
8C3F A9 
8C41 85 
8C43 A5 

8C4A AB 
8C4B 2E 
8C4C 2A 
8C4D EA 
8C4E EB 
8C4F E2 
8C50 B7 
8C51 B8 
8C52 E5 
8C53 E6 
8C54 E7 
8C55 E8 
8C56 E9 
8C57 BB 
8C58 81 
8C59 D6 
8C5A 35 
8C5B DD 
8C5C DD 
8C5D 43 
8C5E 3F 



38 8E 

24 

20 

25 

21 

BA 8B 
OD 

00 
20 
06 
52 
20 
23 
52 

Bl 8B 
83 8E 
BA 8E 
EB BE 

20 
21 
OC 
00 

4A 8C 
3D 

OE 
F6 

6E 8B 
00 
10 
58 

3 8A 



PMROUT JSR 
LDA 
STA 
LDA 
STA 
JSR 
LDA 
LDYIM 
ANDIY 
BNE 
LDA 
ANDIY 
BEQ 

POSSIB STA 
JSR 
JSR 
JSR 
JSR 
LDAIY 
CMPIM 
BCC 
LDXIM 

CHECK CMPAX 
BEQ 
INX 
CPXIM 
BNE 

SCREEN JSR 
PMEND LDAIM 
STA 
LDA 



PLAYER 

PMPOSL 

HCOORL 

PMPOSL 

HCOORL 

VELVEC 

DIREC 

$00 

HCOORL 

POSSIB 

DIRECA 

HCOORL 

PMEND 

DIRECA 

DISVEC 

MOVE 

TUNCHK 

RESPLU 

HCOORL 

♦21 

SCREEN 
♦00 

PUNTAB 
YES 

*0E 
CHECK 
PMDIS 
♦00 

PMFLAG 
PMSPED 
PMTIM 
PMFIN 



HAAL ZET SPELER OP 



+01 KIJK OF PM 

+01 WEL DE GEVRAAGDE 

KANT UIT KAN 

<- GEVRAAGDE RICHTIN6 
KIJK OF HET KAN 
VERGELI JK 
0 = KAN NIET 
PAK OUDE RIGHTING 
VERGELI JK 
KAN HET NIET ? 

DIT WORDT DE NIEUWE RICHTING 
VOER DEZE ZET UIT 

LET OP TUNNELS 
SCORE OP 0 

KIJK OF ER IS GESCOORD 
LEEG VELD ? 

GA SCORETABEL AF 

SPRING ALS ER GESCOORD IS 
ZO NIET. PAK VOLGENDE 
ALLES GEHAD ? 

ZET ZET OP SCHERM 
RESET DE VLAG 

ZET TIJDBUFFER 

GA TERUG NAAR HOOFDLUS 



PUNTAB 



PUNTAC 



= 




PUNT : 3 


= 


*2E 


DUNNE PUNT : 7 


m 




STERRETJE : 10. 12. 1 


m 


*EA 


DRIEHOEK : 12 


= 


*EB 


DRIEHOEK : 12 


= 


*E2 


POWER : 15 


= 


*B7 


BARRIERE. DOE NIETS 


= 


$B8 


BARRIERE 




*E5 


MONSTER : PREMIE. 


= 


*E6 


OF OPGEVRETEN 




$E7 


m 


*E8 




m 


$E9 




m 


*BB 


KWETSBAAR MONSTER 




POINT 


= 


DUNN IE 




= 


STER 




s 


DRIEK 






DRIEK 






POWER 




= 


PMEND 
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8C5F 3F 
8C60 F2 
8C61 F2 
8C62 F2 
8C63 F2 
8C64 F2 
8C65 7D 
8C66 8C 
8C67 8C 
8C68 8D 
8C69 8C 
8C6A 8C 
8CGB 80 
8C6C 8C 
8C6D 8C 
8C6E 8D 
8C6F 8D 
8C70 8D 
8C71 8D 
8C72 8D 
8C73 8D 



8C74 BD 58 8C 
8C77 85 OB 
8C79 BD 66 8C 
8C7C 85 OC 
8C7E 6C OB 00 



8C81 20 
8C84 BO 
8CB6 A3 
8C88 85 
8C8A 20 
8C8D AC 
8C90 A9 
8C92 85 
8C94 20 
8C97 20 
8C9A A9 
8C9C 85 
8C9E 78 
8C9F 20 
8CA2 20 
8CA5 53 
8CA6 54 
8CA7 41 
8CA8 47 
8CA9 45 
8CAA 09 
SCAB 3C 
8CAC 43 
SCAD 4F 
8CAE 4D 
8CAF 09 
8CB0 3C 
8CB1 50 
8CB2 4C 
8CB3 45 
8CB4 54 
8CB5 45 
SCB6 44 
8CB7 03 



PUNTAD 



PMEND 

DEAD 

DEAD 

DEAD 

DEAD 

DEAD 

EATEN 

POINT 



/ 



DUNN IE / 



STER 

DRIEK 

DRIEK 

POWER 

PMEND 

PMEND 

DEAD 

DEAD 

DEAD 

DEAD 

DEAD 

EATEN 



/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 



YES 



LDAAX PUNTAC HAAL JMI ADRES OP 
STA JMIL 
LDAAX PUNTAD 



STA 
JMI 



JMIL 
JMIL 



+01 

EN SPRING 



*** PUNT ROUTINE *** 



2E 8F POINT JSR 
OA BCS 
02 LDAIM 
33 STA 

F7 8E OPTEL JSR 
3C 8C JMP 

02 LEEG LDAIM 
33 STA 
F7 8E JSR 
6E 8B JSR 
01 LDAIM 

53 EMPTY STA 
SEI 

30 8B JSR 
65 89 JSR 



1 PUNT MINDER 
ALLE PUNTJES WEG 

2 PUNTEN 
+03 



2 PUNTEN BIJTELLEN 
+03 

LAAT ZIEN 

ZELF LAATSTE PUNTJES 0PGE6ETEN 



DEPOIN 
LEEG 
♦02 
PLUSB 
ADD 

SCREEN 
$02 
PLUSB 
ADD 
PMDIS 
*01 
CTRLA 

GEEN INTERRUPTS 
TXTSET PRINT TEKST 
PRINT 
'S 
*T 
' A 
'G 
'E 
♦09 
*3C 
*C 
'0 
'M 
♦09 
*3C 
'P 
'L 
'E 
•t 
'E 
'D 
*03 




CURSOR 
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1930: 
1940: 
1950: 
I960: 
1970: 
1980: 
1990: 
2000: 
2010: 
2020: 
2030: 

2050 i 
2060: 

20 70 ' 

2100: 

2110: 

2120: 

2130: 

2140: 

2150: 

2160: 

2170: 

2180: 

2190: 

2200: 

2210: 

2220: 

2230: 

2240: 

2250: 

2260: 

2270: 

2280: 

2290 : 

2300: 

2310: 

2320: 

2330: 

2340 

2350 

2360 

2370 

2380 

2390 

2400 

2410 

2420 

2430 

2440 

2450 

2460: 

2470: 

2480: 

2490: 

2500: 

2510: 

2520: 

2530: 

2540: 

2550: 

2560 : 



8CB8 
BCBB 
8CBD 
8CBF 
8CC1 
8CC4 
8CC6 
8CC9 
8CCB 
8CCD 
8CD0 
3CD3 



20 39 8B 
A5 53 
FO 05 
A9 25 
4C C6 8C 
A9 07 
20 71 
A2 OA 
A9 20 
20 3D 89 
20 Bl 8A 
4C 70 88 



8F 



8CD6 A9 03 
8CD8 85 33 
8CDA 4C 8A 8C 



8CDD 
8CDF 
8CE0 
8CE1 
8CE2 
8CE3 
8CE5 
8CE6 
8CE8 
8CEA 
8CEC 
8CED 
8CEF 
8CF0 
8CF3 
8CF5 
8CF8 
8CFP 
8CFC 
8CFE 
8D00 
8D01 
8D03 
8D05 
8D07 
8D0A 
8D0C 
8D0E 
8D10 
8D12 



A5 20 

4P 

4A 

4A 

4A 

29 03 
AA 

A5 21 
29 04 
DO 04 
8A 

09 04 
AP 

BD 15 8D 
85 23 
BD 25 8D 
85 22 
AO 00 
A9 20 
91 22 
8fl 

C9 08 

10 05 
09 08 

4C EF 8C 
A9 02 
85 33 
A9 01 
85 32 
4C 8A 8C 



8D15 DO 
8D16 Dl 
8D17 Dl 
8D18 DO 
8D19 D5 
8D1A D5 
8D1B D5 
8D1C D5 
8D1D D2 
8D1E D3 
8D1F D3 
8D20 D2 
8D21 D4 
8D22 D3 



JSR 

LDP 

BEQ 

LDAIM 

JMP 

MONET LDAIM 
BONPLU JSR 

LDXIM 

LDAIM 

JSR 

JSR 

JMP 



TXTSHW LAAT EVEN ZIEN 
CTRLA 

2 § L x" ^B T N 5s PUNNTJES opgegeten ? 



MONET 
*25 

BONPLU 
*07 

BONBER 
$0A 
♦20 
PCRT 
MONRES 



7 X DE BONUS 
ZET CURSOR UIT 



ZET MONSTERS TERUG 



NXTSTA VOLGEND STPGE 



DUNN IE LDAIM *03 3 PUNTEN 
STA PLUSB +03 
JMP OPTEL 

*** SLEUTEL ROUTINE *** 



DRIEK LDA 
LSRA 
LSRA 
LSRA 
LSRA 
ANDIM 
TPX 
LDA 
ANDIM 
BNE 
TXA 
ORAIM 
GETCOR TAX 
BREAK LDAAX 
STA 
LDAAX 
STA 
LDYIM 
LDAIM 
STAIY 
TXA 
CMPIM 
BPL 
□ RAIM 
JMP 

BRUP LDAIM 
STA 
LDAIM 
STP 
JMP 

BLOKH = 



HCOORL HAAL COORDINPTEN OP 
DIT ZIJN D052.D062 
D282. D2B2 
D402. D432 
D652. D662 
BEWERK ZE EEN BEETJE 
TOT ZE EEN ACCEPTABEL 
HCOORL +01 NUMMER HEBBEN 
*04 
BREPK 



$03 



<1>. 
<0> 
<4> 
<5>. 



<2> 
<3> 
<7> 
<6> 



$04 



ONERSTE HELFT: <4.5.6.7> 



BLOKH HAAL COORDINPTEN OP 
MCOORL +01 VAN BLOKKADE 
BLOKL 
MCOORL 
♦00 
$20 
MCOORL 



= 
= 



= 
= 
= 



$08 

BRUP 

*08 

GETCOR 

*02 

PLUSB 

*01 

PLUSB 

OPTEL 

$D0 
*D1 
*D1 
*D0 
*D5 
*D5 
*D5 
*D5 
*D2 
$D3 
$D3 
*D2 
$D4 
$D3 



EN RUIM HEM OP 

2 BLOKKADES PER DRIEHOEK 
PLLEBEI AL GEHAD ? 



12 PUNTEN 
+03 

+02 



28 



E-E s n s 
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2570: 


8D23 


D3 




= 


$D3 


2580: 


8D24 


D4 




= 


*D4 


2590: 


8D25 


CA 


BLOKL 


= 


*CA 


2600: 


8D26 


82 




a 


♦82 


2610: 


8D27 


B2 




— 


*B2 


2620: 


8D28 


EA 




= 


*EA 


2630: 


8D29 


CA 




m 


$CA 


2640: 


8D2A 


02 




= 


♦02 


2650: 


8D2B 


32 




= 


$32 


2660: 


8D2C 


EA 




= 


*EA 


2670: 


802D 


12 




= 


$12 


2680: 


8D2E 


OE 




m 


*0E 


2690: 


8D2F 


26 




m 


$26 


2700: 


8D30 


22 




= 


♦22 


2710: 


8D31 


92 




= 


♦92 


2720: 


8D32 


8E 




= 


*8E 


2730: 


8D33 


A6 




m 


*A6 


2740: 


8D34 


A2 




= 


*A2 


2750: 












^12 ! 

2770: 






#*# BC 


NUS EN 


POWER 


2780: 


8D35 


A2 00 


STER 


LDXIM 


*00 


2790: 


8D37 


B5 34 


STERA 


LDAAX 


STARPT 


2800: 


8D39 


95 30 




STAAX 


PLUSB 


2810: 


8D3B 


E8 




INX 


2820 : 


8D3C 


EO 04 




CPXIM 


♦04 


2830: 


8D3E 


DO F7 




BNE 


STERA 


2840: 


8D40 


4C 8A 8C 




JMP 


OPTEL 


2850 : 












2860: 


8D43 


A9 35 


POWER 


LDAIM 


$35 


2870: 


8D45 


85 OA 




STA 


TIMLFT 


2880: 


8D47 


DC 




TAX 




2890: 


8D48 


CA 


WIT 


DEX 




2900: 


8D49 


30 08 




BMI 


WHITE 


2910: 


804B 


A9 Al 




LDAIM 


*A1 


2920: 


8D4D 


9D 00 D7 




STAAX 


TIMBAL 


2930: 


8D50 


4C 48 8D 




JMP 


WIT 


2940: 


8D53 


A9 01 


WHITE 


LDAIM 


♦01 


2950: 


8D55 


85 09 




STA 


EATFLG 


2960: 


8D57 


A2 00 




LDXIM 


$00 


2970: 


8D59 


B5 60 


KWETS 


LDAAX 


MASTAT 


2980: 


8D5B 


09 80 




ORAIM 


♦80 


2990: 


8D5D 


95 60 




STAAX 


MASTAT 


3000: 


8D5F 


B5 6A 




LDAAX 


MADIR 


3010: 


8D61 


20 D8 8F 




JSR 


TURN 


3020: 


8D64 


95 6A 




STAAX 


MADIR 


3030: 


8D66 


E8 




INX 




3040: 


8D67 


EO 05 




CPXIM 


♦05 


3050: 


8D69 


DO EE 




BNE 


KWETS 


3060: 


8D6B 


A2 OA 




LDXIM 


*0A 


3070: 


8D6D 


A9 40 




LDAIM 


♦40 


3080: 


8D6F 


20 3D 89 




JSR 


PCRT 


3090: 


8D72 


A9 05 




LDAIM 


♦05 


3100: 


8D74 


85 33 




STA 


PLUSB 


3110: 


8D76 


A9 01 




LDAIM 


*01 


3120: 


8D78 


85 32 




STA 


PLUSB 


3130: 


BD7A 


4C 8A BC 




JMP 


OPTEL 


3140: 












3150: 






*** MONSTER OPGEGETI 


3160: 












3170: 


8D7D 


A2 00 


EATEN 


LDXIM 


*00 


3180: 


8D7F 


A5 20 


EATENA LDA 


HCOORL 


3190: 


8D81 


D5 26 




CMPAX 


MAPOSL 


3200: 


8D83 


DO 06 




BNE 


EATENB 



HAAL PUNTENAANTAL OP 
EN ZET IN OPTELBUFFER 



ZET BLOKTELLER OP 53 



MAAK TIJDBALK WIT 



ZET EETVLAG 



EN KEER HUN RICHTING OM 



ZET CURSOR OP KNIPPEREN 



15 PUNTEN 
+03 

+02 



MONSTER DOOR GREEDY OPGEGETEN 



29 



DE 



KENMEIR 
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8D85 A5 21 
8D87 D5 27 
8D89 FO 09 
8D8B ES 
8D8C E8 
8D8D E0 Oft 
8D8F DO EE 
8D91 4C 3C 8C 
BD94 20 9fl 8D 
8D97 4C 3F 8C 



8D9A 8fl 
8D9B 4A 
8D9C ftft 
8D9D 78 
8D9E B5 60 
BDflO 29 OF 
8DA2 95 60 
8DA4 20 C2 8A 
8DA7 20 6E 8B 
8DAA 20 30 SB 
BDflD 20 65 89 
8DB0 09 
80B1 40 
8DB2 53 
8DB3 50 
8DB4 4F 
8DB5 4F 
8DB6 4B 
8DB7 03 
8DB8 A9 04 
8DBA A6 09 
8DBC FO 1C 
8DBE A9 04 
8DC0 CA 
8DC1 FO OC 
8DC3 09 08 
8DC5 CA 
8DC6 FO 07 
8DC8 09 16 
8DCA CO 
8DCB FO 02 
8DCD 09 32 
8DCF 20 71 8F 
8DD2 05 09 
8DD4 C5 59 
8DD6 FO 04 
8DD8 E6 09 
8DD0 58 
8DDB 60 
8DDC 06 00 
8DDE EO 01 
8DE0 FO F8 
8DE2 20 EB 8E 
8DE5 09 04 
8DE7 85 33 
8DE9 20 F7 8E 
8DEC 20 91 8B 
8DEF 4C DC 8D 



LDA HCODRL 
CMPOX MOPOSL 
BEQ EATENC 
EATENB I NX 
INX 

CPXIM $00 
BNE EATENA 
JMP SCREEN 
EATENC JSR MDOWN 
JMP PMEND 
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+01 
+01 

MONSTER BEPAALD ? 
2 KEER ! 

ALLE MONSTERS GEHAD ? 

HET WAS EEN VLEKJE 
VOER OPEETROUTINE UIT 
EN GA DOOR 



*** MONSTER OPEET SUBROUTINE *** 



MDOWN TXA 
LSRA 
TAX 
SEI 
LDAAX 
ANDIM 
STAAX 
JSR 
JSR 
JSR 
JSR 



IS DE 



MONSTER 
VAN X 



GEEN INTERRUPTS 
MOSTOT MOOK HET WEER ONKWETSBAOR 
♦OF 

MOSTOT BIT 7 =0, BIT 6 =1 
RESMON STUUR HET NOOR STORT 
PMDIS EN ZET DE GREEDY EROP 
TXTSET 
PRINT 



SLA REGEL OVER 



LDOIM 
LDX 
BEQ 
LDAIM 
DEX 
BEQ 
LDAIM 
DEX 
BEQ 
LDAIM 
DEX 
BEQ 
LDAIM 
MONBON JSR 
LDA 
CMP 
BEQ 
INC 

OPTIM CLI 
RTS 

ALLUP LDX 

CPXIM 

BEQ 

JSR 

LDAIM 

STA 

JSR 

JSR 

JMP 




HOEVEELSTE MONSTER 



MONBON WORDT OPGEGETEN 



*08 IE 
2E 

MONBON 3E 
♦16 4E. 



4 X BONUS 
8 X BONUS 
: 16 X BONUS 
5E 32 X BONUS 



MONBON 
$32 

BONBER 

EATFLG KIJK OF ALLE MONSTERS OP ZIJN 

MONNUM 

ALLUP 

EflTFLG SSBUKS SI^k" 0NSTER 

TIMLFT HAAL SEGMENTENTELLER 

$01 VOOR GOEDE AFWIKKELING 

OPTIM ALLES AL WEG ? 

RESPLU OPTELBUFFER 0000 

♦04 4 PUNTEN VOOR ELK SEGMENT 

PLUSB +03 DAT NOG OVER IS 

ADD TEL OP 

DECBAL EEN SEGMENT MINDER 

ALLUP 



*** GREEDY OPGEGETEN *** 



— b 5 □ a 



KENNER 
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3850: 
3860: 
3870: 
3880: 
3890: 
3900: 
3910: 
3920: 
3930: 
3940: 
3950: 
3960: 
3970: 
3980: 
3990: 
4000: 
4010: 
4020: 
4030: 
4040: 
4050: 
4060: 
4070: 
4080: 
4090: 
4100: 
4110: 
4120: 
4130: 
4140: 
4150: 
4160: 
4170: 
4180: 
4190: 
4200: 
4210: 
4220: 
4230: 
4240: 
4250: 
4260: 
4270: 
4280: 
4290: 
4300: 
4310: 
4320: 
4330: 
4340: 
4350: 
4360: 
4370: 
4380: 
4390: 
4400: 
4410: 
4420: 
4430: 
4440: 
4450: 
4460: 
4470: 
4480: 



8DF2 
8DF3 
8DF6 
8DF9 
8DFC 
8DFD 
8DFE 
8DFF 
8E00 
8E01 
8E02 
8E03 
8E04 
8E05 
8E06 
8E07 
8E08 
8E09 
8E0A 
8E0B 
8E0C 
8E0D 
8E10 
8E12 
8E14 
BE17 
8E1A 
8E1D 
8E1E 
8E1F 
8E20 
8E21 
8E22 
8E23 
8E24 
8E25 
8E26 
8E27 
8E28 
8E29 
8E2B 
8E2E 
8E30 
8E32 
8E35 



78 

20 52 8F 

20 30 8B 

20 65 B9 

45 

41 

54 

45 

4E 

09 

3D 

42 

59 

09 

3C 

47 

48 

4F 

53 

54 

03 

20 39 
C6 08 
30 03 



DEAD 



SEI 
JSR 
JSR 
JSR 



8B 



4C D5 

20 30 



89 
8B 

20 65 89 
20 
47 
41 
4D 
45 
09 
7C 
4F 
56 
45 
52 
03 

09 40 
20 3B 8B 
A2 Oft 
ft9 00 
20 3D 89 
4C 00 90 



JSR 
DEC 
BMI 
JMP 

GftMOV JSR 
JSR 



LDflIM 

JSR 

LDXIM 

LDfilM 

JSR 

JMP 



CURSET 

TXTSET 

PRINT 

'E 

'ft 

'? 

'E 

' N 

$09 

$3D 

'B 

' Y 

$09 

$3C 

' G 

* H 

' 0 

'S 

'T 

$03 

TXTSHW 

PMflflNT 

GftMOV 

PMMORS 

TXTSET 

PRINT 
» 

' G 
'ft 
'M 
'E 
*09 
*7C 
'0 
'V 
'E 
'R 
♦03 
$40 
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GEEN INTERRUPTS MEER 
MONSTER OP GREEDY 



LAAT EVEN ZIEN 
1 GREEDY MINDER 
ALLES OP? 
START OPNIEUW 



VOLGENDE REGEL 



WACHT EXTRA LANG 
TXTSHW +02 LABEL DELAYA 
$Oft 
♦00 
PCRT 
NMWRT 



CURSOR UIT 



GA NAAR HI SCORE ROUTINE 



8E38 
8E3A 
8E3D 
8E3F 
8E42 
8E44 
8E47 
8E49 
8E4B 
8E4E 
8E50 
8E52 
8E54 
8E56 



A9 IE 
8D 83 
A9 99 
8D 81 
A9 03 
8D 82 
A9 08 
85 OD 
AD 80 
49 FF 
29 66 
DO 06 
A9 00 
85 OD 



1A 
1A 
1A 



1A 



*** SUBROTINES **# 

PLAYER : VOERT ZET SPELER IN 

ZET I/O OP 
= 00011110 



LDAIM 


$1E 


STA 


PBDD 


LDAIM 


$99 


STA 


PADD 


LDAIM 


$03 


STA 


PBD 


LDAIM 


$08 


STA 


DIREC 


LDA 


PAD 


EORIM 


$FF 


ANDIM 


$66 


BNE 


PUSH 


LDAIM 


$00 


STA 


DIREC 



= 10011001 
SCAN TOETSRIJ 
= 00000011 
ZET 'SCHUIFBIT' IN DIREC 

INVERTEER 

TOETS INGEDRUKT ? 

(7-8-B-C) 

MAAK DIREC LEEG 



I FATE 65XX A SSEMBLER VI. 0 i 
I With DermTssion of Fa.Proton! 
I at Naarden we can offer voul 
I the Format Lister/Assembler/ i 
ITaoe utilities/Editor FATE. ! 
I FATE is a 12K orooram. the! 
I assembly listina snows like I 
IAIM65 listinas. "With the edii 
Itor one is able to develool 
Itextfiles and sourcefiles. I 
lOne can write the files onl 
I taoe and read it fro* taoe. i 
I With the format lister one! 
lis able to make hardcoovs of! 
Ithe textsfiles on Drinter. It! 
lis oossible to out vour orin! 
Iter OKI Microline 86 into sei 
Iveral /nodes. With the assent-; 
I bier you aay convert source- i 
ifiles into bbiect-code. from! 
Icassette to cassette, from; 
Imemory to memory, from cas-: 
Isette to memory, from memory; 
Ito cassette. Meroe and soldi! 
lalso oossible. i 
IFATE is orioinallv used as a; 
IProton DOS for JUNIOR, also! 
I known as SENIOR. Our member I 
I Rob Banen oatched and made as 
Icassette version. He alsol 
Idevelooed a comolete source-! 
Ilistino with comments in En- I 
iaiish. ! 
I fou need a JUNIOR, two cas-,' 
Isette recorders (one is alsol 
loossible) with motor-control I 
I. the Elekterminal or other! 
Idevice, OKI 80 orinter orl 
I other orinter. at least 16 Ki 
I RAM better 32 K (from $2000); 
IFATE is available as follows! 
I- 12K on taoe with manual in! 
I Dutch lanquaqe. F1.47. 50! 
I- comDlete source-list ina in! 
I Enqlish lanquace. F1.110. =i 
iTo be oavd at "costal account! 
1 841433 of Mr. W.L. van Pelt! 
Iat Krimoen. a.d. Ussel. orl 
Ito AMRO-bank at Krimoen a.d. I 
HJssel. acc.nr.44. 11.06. 471. 1 
IForeiqn countries Fl. 7.501 
lextra transfers. I 



I ASM 65C 65CXXX-CR0SS-ASSEK-I 

I BIER FOR SENIOR MONITOR! 

I 1 

I The ASM 65C 65CXXX-CR0SS-! 
I ASSEMBLER handles al new in-! 
I struct ions of 65C02-oroces-l 
Isors and is fully comoatiblet 
I with 6502. Author: Rob Banen! 
I Schiedam. The Ntherlands. I 
IComolete FATE-source-listino; 
I of 57 oaoes (Enolish). ! 
I- Taoe $3000-$486A Fl. 15:00! 
I- Source listino Fl. 52.50! 
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4490: 

4500: 

4510: 

4520: 

4530: 

4540: 

4550: 

4560: 

4570: 

4580: 

4590 : 

4600: 

4610: 

4620: 

4630: 

4640: 

4650 : 

4660: 

4670: 

4680: 

4690: 

4700: 

4710: 

4720: 

4730: 

4740: 

4750: 

4760: 

4770: 

4780: 

4790 i 

4800: 

4810: 

4820: 

4830: 

4840: 

4850: 

4860: 

4870: 

4880: 

4890 : 

4900: 

4910: 

4920: 

4930: 

4940: 

4950: 

4960: 

4970: 

4980 : 

4990: 

5000: 

5010: 

5020: 

5030: 

5040: 

5050: 

5060: 

5070: 

5080: 

5090: 

5100: 

5110: 

5120: 
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6E56 


4 Q 

IB 








pi p 




pADDv — r» 

LHrtnT — yj 


nren 

ohj^ 


faU 








rt 1 D 




cm ppTl IBM 


□ CCA 
OC.3H 


AtC 


AT\ 




Dl 1CU 

FUan 


OCI 


HT DCP 


crUMTF RTT 


8E5C 


29 


62 






AMTA T M 

HNUIP! 




1 Ut 1 D D otiLmUft 1 r 


8E5E 


DO 


At 

05 






ErMC 

BNt 


ni icuo 
r-UarlH 




n r~ f r\ 

8E60 


02 


ED 






LUX in 




Kinno DCPUTC 


BESZ 


4L 


"7C 


oh 




Tun 






DtuJ 




\. f U 




PI mHQ 


ASL 




T0ETS 7 GEDRUKT 


8E67 


29 


22 






ANDIM 


♦22 


8E69 


DO 


05 






BNE 


PUSHB 


8E6B 


02 


EE 






LDXIM 


♦EE 


NAAR 0NDER 


8E6D 


4C 


7F 


BE 




JMP 


PUSHED 




8E70 


06 


0D 




PUSHB 


ASL 


DIREC 




8E72 


29 


02 






ANDIM 


♦02 


T0ETS 8 GEDRUKT ? 


8E74 


DO 


05 






BNE 


PUSHC 




8E76 


A2 


EF 






LDXIM 


*EF 


NAAR LINKS 


8E78 


4C 


7F 


8E 




JMP 


PUSHED 




8E7B 


06 


0D 




PUSHC 


ASL 


DIREC 




8E7D 


A2 


EC 






LDXIM 


$EC 


NAAR B0VEN 


8E7F 


86 


0E 




PUSHED 


STX 


DIRPM 


PIJLTJE IN GREEDY 


8EB1 


38 








SEC 




CARRY =1 


8E82 


60 








RTS 







MOVE : VERPLAATST HC00R NAA 
GELANG DE GEWENSTE 



8E83 


A5 


52 


MOVE 


LDA 


DIRECA 


HAAL RICHTING 


8E85 


4A 






LSRA 




4 X SCHUIVEN 


8E86 


4A 






LSRA 






8EB7 


4A 






LSRA 






8E88 


4A 






LSRA 






8E89 


F0 


07 




BEQ 


MOVEND 


NIETS DOEN 


8E8B 


4A 






LSRA 






8E8C 


DO 


05 




BNE 


NMOVRI 


NAAR RECHTS ? 


8E8E 


E6 


20 




INC 


HCOORL 




8E90 


F0 


0D 




BEQ 


MOVDO 


CARRY ? 


BE92 


60 




M0VEND 


RTS 






8E93 


4A 




NM0VRI 


LSRA 




NAAR BENEDEN ? 


8E94 


DO 


OC 




BNE 


NMOVDO 




8E96 


A5 


20 




LDA 


HCOORL 


TEL ER 40 BIJ 


8E98 


18 






CLC 






8E99 


69 


40 




ADCIM 


$40 




8E9B 


85 


20 




STA 


HCOORL 




8E9D 


90 


F3 




BCC 


MOVEND 


GEEN CARRY ? 


8E9F 


E6 


21 


MOVDO 


INC 


HCOORL 


+01 


8EA1 


60 






RTS 






8EA2 


4A 




NMOVDO LSRA 






8EA3 


DO 


09 




BNE 


NMOVL I 


NAAR LINKS ? 


8EA5 


C6 
A5 


20 




DEC 


HCOORL 


1 STAP TERUG 


8EA7 


20 




LDA 


HCOORL 




8EA9 


C9 


FF 




CMPIM 


*FF 


BORROW ? 


8EAB 


F0 


OA 




BEQ 


MOVUP 




8EAD 


60 






RTS 






8EAE 


A5 


20 


NMOVLI 


LDA 


HCOORL 


NAAR BOVEN 


8EB0 


38 






SEC 




TREK ER 40 VAN 


8EB1 


E9 


40 




SBCIM 


$40 




8EB3 


85 


20 




STA 


HCOORL 




8EB5 


B0 


DB 




BCS 


MOVEND 


BORROW ? 


8EB7 


C6 


21 


MOVUP 


DEC 


HCOORL 


+01 


8EB9 


60 






RTS 







TUNCHK : KIJK OF TE VERPLAATSEN OBJECT 
ZICH AAN HET EINDE VAN EEN 
TUNNEL BEVINDT 



I ■M i u. i .niju ii uj mwiiwn ■■« * .' 

I B IJEENKDHSTEN REGIE) DEN HflflG 
IDe reoio Den Haao/RotterdaW 
ILeiden en o*streken orqani- 
Iseert weer haar qebruikeli j- 
Ike bi leenkoasten voor leden 
Ivan eft belanqstellenden voor 
lonze club, en wel oo : 
I 



IZaterdaa 13 aor 
IZaterdaq 8 jun 



I 



I 

I in het 

I 



Klubhuis De Boskantl 
Uileboaen 71 I 
2511 VR Den Haaa I 
Tel. : 070 - 468859 I 
( OMevinq Schenk- I 
viadukt") i 



loroanisatie: G. van Roekel. I 



1 = 



= 1 



I H ULP NQDIG VOOR RE DAKTIE HERK i 
IDe redaktie zoekt ieaand diel 
Iter afwisselinq in de hobby ! 
Ibereid en in staat is qoedei 
Ivertalinoen te naken van het! 
INederlands in het Enqels van! 
Ihandleidinqen, oroqraama's. I 
lartikelen welke ziin qeou-! 
Ibliceerd of anderszins. Dezel 
Ivertalinoen worden ooqeno*eti! 
I in de oaoerware-service enl 
Ikunnen buitenlandse leden enl 
Ibelanastellenden van dienstl 
1 zi in. Er staan qeen verqoe-i 
Idinaen voor dit werk. daar-! 
Ivoof is de club niet riikl 
loenoea, maar oisschien vindtl 
IU het "wel interessant? Belt I 
III eens od: 01807 - 19881 of I 
Ischrijf eens naar Willem L. I 
Ivan Pelt van de redaktie. i 



If io-FQRTH Source for SENIOR ! 
IDe Elektuur JUNIOR conouter! 
idie draait net het disk ooe-1 
Iratina svstet van de firwal 
I Proton te Naarden wordt ookl 
I wel SENIOR oenoemd. ! 
I Voor deze SENIOR tvote Gertl 
Ivan Oobroek de oehele source! 
Ivan de fia-FORTfi in aan del 
I hand van de officiele docu-l 
li»entatie (verkriiobaar biji 
Ide redaktie, vraao prijsoverl 
Izicht). 

I Deze oehele asseably source I 
llistifio is verkriiobaar voor I 
IF1. 48,50, incl. veroakkinqs! 
ien verzendkosten. 
IDe obiect ervan is ook ver-l 
Ikriiobaar. De object beslaat! 
Ihet'oeheuoenoebied van $20001 
lt/i i4EB2. Kosten van de cas! 
Isette: Fl. 15,00. Foraaat:! 
I KIM/ JUNIOR Hvoertaoe. ! 
I Giro 841433 t.n.v. H.L. van I 
IPelt te Krinoen a.d. Ussel. I 
1= 
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5130 

5140 

5150 

5160 

5170 

5180 

5190 

5200 

5210 

5220 

5230 

5240 

5250: 

5260: 

5270: 

5280: 

5290: 

5300: 

5310: 

5320: 

5330: 

5340: 

5350: 

5360: 

5370: 

5380 : 

5390: 

5400: 

5410: 

5420: 

5430: 

5440: 

5450: 

5460: 

5470: 

5480: 

5490: 

5500: 

5510: 

5520: 

5530: 

5540: 

5550: 

5560: 

5570: 

5580: 

5590: 

5600: 

5610: 

5620: 

5630: 

5640: 

5650: 

5660: 

5670: 

5680: 

5690: 

5700: 

5710: 

5720: 

5730: 

5740: 

5750: 

5760: 



BEBA 


A2 


00 




TUNCHK 


LDXIM 


$00 


8EBC 


A5 


21 




TUNA 


LDA 


HCOORL 


8EBE 


DD 


DB 


8E 




CMPAX 


TUNTAA 


8EC1 


DO 


07 






BNE 


TUNB 


8EC3 


A5 


20 








HCOORL 


8EC5 


DD 


DF 


8E 








8EC8 


FO 


06 








8ECA 


E8 






TUNB 


INX 




8ECB 


EO 


04 






CPXIM $04 


8ECD 


DO 


ED 






BNE 


TUNA 


8ECF 


60 








RTS 




8ED0 


BD 


E3 


8E 


TUNC 


LDAAX 


TUNTAC 


8ED3 


85 


21 






STA 


HCOORL 


8ED5 


BD 
85 


E7 


8E 




LDAAX 




8ED8 


20 






STA 




8EDA 


60 








RTS 




8EDB 


CF 






TUNTAA 


m 


$CF 


8EDC 


Db 








— 


$D6 


8EDD 


D3 










$D3 


8EDE 


D3 








u 


$D3 


8EDF 


DA 






TUNTAB 


m 


$DA 


8EE0 


DA 










$DA 


8EE1 


3F 








= 


$3F 


8EE2 


75 








= 


$75 


8EE3 


D6 






TUNTAC 


— 


$D6 


8EE4 


DO 










$D0 


SEE5 


D3 








■ 


$D3 


8EE6 


D3 










$D3 


8EE7 


9A 






TUNTAD 


= 


$9A 


8EE8 


5A 










$5A 


8EE9 


74 










$74 


8EEA 


40 








= 


$40 



KIJK OF HCOOR BUI TEN 
+01 HET BORD IS 



8EEB A2 00 
SEED A9 00 
8EEF 95 30 
8EF1 E8 
8EF2 EO 04 
8EF4 DO F7 
8EF6 60 



BUFFER HEEFT 4 DIGITS 



RESPLU : ZET OPTELBUFFER OP 0000 

RESPLU LDXIM $00 
RESPL LDAIM $00 

STAAX PLUSB 

INX 

CPXIM $04 
BNE RESPL 
RTS 

ADD : TELT OPTELBUFFER BIJ SCORE OP 



8EF7 


18 






8EF8 


A2 


06 




8EFA 


AO 


04 




8EFC 


CA 






8EFD 


88 






8EFE 


30 


15 




8F00 


B9 


30 


00 


8F03 


29 


OF 




8F05 


7D 


F8 


D2 


8F08 


C9 


3A 




8F0A 


30 


03 




8F0C 


38 






8F0D 


E9 


OA 




8F0F 


9D 


F8 


D2 


8F12 


4C 


FC 


BE 


8F15 


90 


13 




8F17 


FE 


F8 


D2 



ADDA 



ADDB 
ADDC 



CLC 

LDXIM $06 
LDYIM $04 
DEX 
DEY 

BMI ADDC 
LDAAY PLUSB 
ANDIM $0F 
ADCAX SCORD 
CMPIM $3A 
BMI ADDB 
SEC 

SBCIM $0A 
STAAX SCORD 
JMP ADDA 
BCC ADDD 
INCAX SCORD 



CARRY = 0 
SCORE 6 DIGITS 
ADD 4 DIGITS 



HAAL SCORE 

TEL OP 
CARRY ? 

TREK ER 10 VANAF 
C BLIJFT 1 
ZET IN SCORE 



6EEN CARRY NAAR 10000 EN 100000 



33 
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5770: 8F1A 


BD 


F8 


D2 




LDAAX 


SCORD 




5780: 8F1D 


C9 


3A 






CMPIM 


$3A 


CARRY ? 


5790: BF1F 


30 09 






BMI 


ADDD 




5800: 8F21 


38 








SEC 






5810: 8F22 


E9 


OA 






SBCIM 


$0A 


c R IlijfVi VflNflF 


5820: 8F24 


9D 


F8 


D2 




STAAX 


SCORD 




5830: 8F27 


CA 








DEX 




GA NAAR 100000 


5840: 8F28 


10 


EB 






BPL 


ADDC 


5850: 8F2A 


20 


59 


8F 


ADDD 


JSR 


EXHAP 




5860: 8F2D 


60 








RTS 






5870: 
















5880: 








DEPOIN 


: VERLAAGT AANTAL PUNTJES MET 1 


5890: 
5900: 










EN KIJKT OF ZE WEG ZIJN 


5910: 8F2E 


A2 


02 




DEPOIN 


LDXIM 


*02 


BEGIN ACHTERAAN 


5920 


: 8F30 


DE 


7B 


D5 


DEPA 


DECAX 


PUNTD 


VERLAAG MET 1 


5930 


: 8F33 


BO 


7B 


D5 




LDAAX 


PUNTD 


CONTROLE VOOR BORROW 


5940 


: 8F36 


C9 


2F 






CMPIM 


*2F 


5950 


: 8F38 


DO 


08 






BNE 


DEPB 


EXIT 


5960 


: 8F3A 


A9 


39 






LDAIM 


*39 




5970 


: 8F3C 


9D 


7B D5 




STAAX 


PUNTD 


HERSTEL 


5980 


: 8F3F 


CA 








DEX 


GA 1 DIGIT NAAR VOREN 


5990 


: 8F40 


10 


EE 






BPL 


DEPA 




6000 


: 8F42 


A2 


02 




DEPB 


LDXIM 


♦02 


KIJK OF ZE ALLEMAAL 0 ZIJN 


6010 


: 8F44 


BD 


7B 


D5 


DEPC 


LDAAX 


PUNTD 




6020 


8F47 


C9 


30 






CMPIM 


$30 


IS HET 0 ? 


6030 


' 8F49 


DO 


05 






BNE 


DEPD 




6040 


l 8F4B 


CA 








DEX 




PAK VOLGENDE 


6050 


8F4C 


10 


F6 






BPL 


DEPC 




6060 


8F4E 


38 








SEC 




ALLEMAAL 0 -> C =1 


6070 


8F4F 


60 








RTS 






6080 


8F50 


18 






DEPD 


CLC 




NOG NIET 0 -> C=0 


6090 


' 8F51 


60 








RTS 






6100 














6110 










CURSET 


: ZET 


CURSOR 


OP ETEND MONSTER 


6120 


















6130 


BF52 


A9 


20 




CURSET LDAIM $20 


VERWIJDER GREEDY 


6140 


8F54 


AO 


00 






LDYIM 


*00 




6150 


8F56 


91 


24 






STAIY 


PMPOSL 




6160 


8F58 


60 








RTS 






6170 


















6180 










EX HAP 


' KIJKT OF ER 


EEN EXTRA VERDI END IS 


6190 


















6200 


8F59 


A6 


50 




EXHAP 


LDX 


EXTRA 




6210 


8F5B 


AD 


F9 


D2 




LDA 


SCORD 


+01 PAK 10.000 TALLEN 


6220 


8F5E 


DD 


6B 


8F 




CMPAX 


LIM 


VERGELIJK MET LIMIET 


6230 


8F61 


DO 


07 






BNE 


NOT 




6240 


8F63 


E6 


50 






INC 


EXTRA 


PAK V0L6ENE LIMIET 


6250 


8F65 


E6 


08 






INC 


PMAANT 




6260 


8F67 


20 


F9 


8A 




JSR 


PMATTK 


TEKEN ZE 


6270 


8F6A 


60 






NOT 


RTS 






6280 
















6290 


8F6B 


32 






LIM 


= 


*32 


le : 20.000 


6300! 


8F6C 


35 








■ 


♦35 


2e : 50.000 


6310: 


8F6D 


30 










♦30 


3e : 100.000 


6320: 


8F6E 


37 










♦37 


4e : 170.000 


6330: 


8F6F 


35 








= 


♦35 


5e : 250.000 


6340: 


8F70 


3C 










*3C 


6e : NIET TE KRIJGEN 


6350: 


















6360: 


















6370: 










BONBER 


: TELT ZOVEEL KEER ALS IN A DECIMAAL STA 


6380: 










DE STERETJESBONUS BIJ EN LAAT DIT ZIEN 


6390: 
















6400: 8F71 


48 






BONBER 


PHA 




SAVE ACCU 
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6410 
6420 
6430 
6440 
6450 
6460 
6470 
6480 
6490 
6500 
6510 
6520 
6530 
6540 
6550 
6560 
6570 
6580 
6590 
6600 
6610 
6620 
6630 
6640 
6650 
6660 
6670 
6680 
6690: 
6700 
6710 
6720 
6730 
6740 
6750 
6760 
6770 
6780 
6790 
6800 
6810 
6820 
6830 
6840 
6850 
6860 
6870 
6880 
6890 
6900 
6910 
6920 
6930 
6940 
6950 
6960 
6970 
6980 
6990 
7000 
7010 
7020 
7030 
7040 
7050 
7060: 
7070: 
7080: 
7090: 
7100: 
7110: 
7120: 
7130: 
7140: 
7150: 
7160: 
7170: 
7180: 
7190: 



8F72 4A 
8F73 4ft 
8F74 4A 
8F75 4A 
8F76 09 
8F78 8D 
8F7B 29 
8F7D AA 
8F7E 09 
8F80 CA 
8F81 30 
8F83 18 
8F84 69 
8F86 4C 
8F89 85 
8F8B 68 
8F8C 29 
8F8E 09 
8F90 8D 
8F93 29 
8F95 18 
8F96 65 
8F98 85 
BF9A 20 
8F9D 20 
BFAO 09 
8FA1 04 
BFA2 58 
8FA3 09 
8FA4 7B 
8FA5 42 
8FA6 4F 
8FA7 4E 
8FA8 55 
8FA9 53 
8FAA 03 
8FAB AO 
8FAD B9 
8FB0 99 
8FB3 88 
8FB4 10 
8FB6 20 
8FB9 20 
8FBC C6 
8FBE DO 
8FC0 20 
8FC3 60 



30 

F9 D3 
OF 

00 

06 

OA 

80 8F 
53 

OF 

30 

FA D3 
OF 

53 
53 

30 BB 
65 89 



LSRA 
LSRA 
LSRA 
LSRA 

□RAIM $30 
STA TEXTD 
ANDIM $0F 
TAX 

LDAIM $00 
BONA DEX 

BMI BONB 
CLC 

ADCIM $0A 
JMP BONA 
BONB STA CTRL A 
PLA 

ANDIM $0F 
ORAIM $30 
STA TEXTD 
ANDIM $0F 
CLC 

CTRLA 
CTRLA 



HAAL TIENTALLEN OP 



MAAK ER ASCII VAN 
+01 

ZET CODE OM IN HEX 



EVEN 



EENHEDEN 
MAAK ASCII 
+02 



ADC 
STA 
JSR 
JSR 



03 

34 00 
30 00 

F7 

F7 8E 
58 8B 
53 
EB 

63 8B 



8FC4 AO 00 
8FC6 B9 F8 D2 
8FC9 Dl 02 
8FCB 30 07 
8FCD DO 07 
8FCF C8 
8FD0 CO 06 
8FD2 DO F2 
8FD4 18 
8FD5 60 
8FD6 38 
8FD7 60 



8FD8 48 
8FD9 29 50 
BFDB FO 04 
8FDD 68 
8FDE 49 50 
8FE0 60 
8FE1 68 
8FE2 49 AO 
8FE4 60 



DEC - HEX IS OMGEZET 
BEWAAR EVEN 
TXTSET ZET OP VOOR TEKST 
PRINT 
$09 
$04 
'X 
$09 
$7B 
= ' B 
'0 

: :b 

'S 
$03 

BONC LDYIM $03 

LDAAY STARPT STERPUNTEN IN BUFFER 
STAAY PLUSB 
DEY 

BPL BOND 
JSR ADD 
JSR DELAYA 
DEC CTRLA 
BONC 

TXTSOW LAAT TEKST EVEN ZIEN 
RTS 

COMPAR : VERGELI JKT SCORE MET HISCORE IN 
TABEL, RANGE WE ZEN DOOR VELDP 

COMPAR LDYIM $00 VERGELI JK HI -SCORES 
HCOMP LDAAY SCORD 
CMPIY VELDPL 

BMI LOWER NIET DE HOOGSTE 
BNE HIGHER GEL UK ? 
INY PAK VOLGEND GETAL 

CPYIM $06 ALLES GEHAD ? 
BNE HCOMP 
LOWER CLC C=0, SCORE LAGER 

RTS 

HIGHER SEC c-1, SCORE HOGER 

TURN : DRAAIT ' RICHTING' IN A OM 



TURN PHA 

ANDIM $50 
BEQ BOVON 
PLA 

EORIM $50 
RTS 

BOVON PLA 

EORIM $A0 
RTS 



SAVE ACCU 
LINKS/RECHTS ? 



BOVEN/BENEDEN 



einde deel 2 
00 90 NMWRT * $9000 



35 



19 22 QLIST 
SCR # 19 

( Utilities. WAIT. BORDER. 
( naar Willem R. Zeeff 
FDRTH DEFINITIONS HEX 



0 
1 
2 
3 
4 
5 
6 
7 
8 
9 

10 
11 
12 
13 

14 --> 
15 



SCR-WRITE 



WAIT 0 DO 33E 0 DO LOOP LOOP : ( delav 
BORDER OF AND 400 * _ 

6000 ( toD of FORTH' s memory assianment 
( installation deoendent ! 

+ : 



: SCR-WRITE 
BORDER 
400 + 
WRITE 



DUP 
DUP 
1A72 



1A79 
1070 
i 



C! 
i 



( taDe id number 
( start adress 
( end adress 



SCR 
0 
1 
2 
3 
4 
5 
6 
7 
B 
9 

10 
11 
12 
13 
14 

15 — > 



# 20 

( Utilities. 



SCR-READ. TO-TAPE. FROM-TAPE 



naar Willem R. Zeeff 

1A79 C! ( taoe id number 
READ : 
1+ SWAP 27 WAIT 
DO CR OA WAIT 
." WRITING" I 
SPACE I SCR-WRITE 
. " READY " 



: TO-TAPE 



( delav ) 
( delav ) 

4 . R ( screennumoer 



: 



LOOP 

FROM-TAPE 1+ 



SWAP DO CR 
READING I 4 . R 
iCE I SCR-READ . 
P : 



screennumber 
READY " 



SCR # 
0 ( 
1 

2 

3 : 

4 : 
5 

6 : 

7 

8 

9 
10 
11 
12 
13 
14 

15 - 



21 

disk utilities 



Gert Klein 



DISK FLUSH 0 I/0FLA6 ! 
TOPE FLUSH 1 I/OFLAG ! 

INBUF B/SCR * OFFSET tt 
+ SWAP B/SCR * 
B/SCR OVER + 
SWAP DO DUP 

1 BLOCK 

2 - ! 

1+ UPDATE 
LOOP DROP : 



: ( select disk as i/o ) 
: ( select taoe as i/o ) 

( offset to other drives ) 
( source block number ) 
( taraet block number ' ) 

( load source block ) 
( assicm taraet number ) 
( uodate buffer ) 



SCR 
0 
1 
2 
3 



tt 22 

( disk utilities 



Gert Klein 



: T->D ( codv from taoe to disk 

TAPE INBUF 0 I/OFLAG ! ( select i/o 
FLUSH : 



9 
10 
11 
12 
13 
14 
15 
OK 



: D->T ( coov from , 

DISK INBUF 1 I/C 
FLUSH DISK : 



DECIMAL 

LATEST 12 +ORIGIN 
HERE 28 +ORIGIN 

HERE 30 +ORIGIN 

HERE FENCE ! 

;s 



to taDe 

! ( select i/o 



( lock into svstem 



KENMER 



>PR 
0010 
0020 
0030 
0040 
0050 
0060 
0070 
0080 
0090 
0100 
0110 
0120 
0130 
0140 
0150 
0160 
0170 
0180 
0190 
0200 
0210 
0220 
0230 
0240 
0250 
0260 
0270 
0280 
0290 
0300 
0310 
0320 
0330 
0340 
0350 
0360 
0370 
0380 
0390 
0400 
0410 
0420 
0430 
0440 
0450 
0460 
0470 
0480 
0490 
0500 
0510 
0520 
0530 
0540 
0550 
0560 
0570 
0580 
0590 
0600 
0610 
0620 
0630 
0640 
0650 
0660 
0670 
0680 
0690 



: INFORMATION ABOUT OSI NINE DIGIT BASIC 







COLLECTED BY: 



GERT KLEIN 

1 19 
WAGENINGEN 



: BASED ON A PREVIOUS PUBLICATION OF WILLEM VAN PELT FOR THE 

: KB9 BASIC FOR THE JUNIOR. THIS VERSION APPLIES TO THE 

: BASIC OF THE OHIO SCIENTIFIC 0S-65D V3. 3 DISK OPERATING 

: SYSTEM. PLEASE LET US KNOW IF YOU FIND ANY INCORRECTNESSES 

: IN THIS LI"' 



. BA 

NLJMP '. DE 

Y/AJMP . DE 
VECFIXTFLO . DE 
VECFLOTFIX . DE 
SRCHCHAR . DE 
SCANBTWNQW . DE 



INPBPNTR 

DEFDIMFLG 

TYPE1 

TYPE2 

FLAG 

SUBSCRFNX 
SIGN 



.DE 
.DE 
.DE 
.DE 
.DE 
.DE 
• DE 



CMPEVALFLG . DE 

INPFL6 .DE 

POSPRLN . DE 

PRLNWIDTH .DE 

COLLIMIT .DE 

INTEGER .DE 

BUFFER . DE 

. BA 

BUFFEREND ! DE 
DESCRSTCK . DE 
TEMPSTRN6 . DE 
STCKEND . DE 
UTILPNTR .DE 
MULTPROD . DE 
STRTBAS . DE 
STRTVAR . DE 
STRTARR . DE 
ENDARR . DE 

STRNGSTOR . DE 
STRNGPNTR . DE 
MEMEND . DE 
LINENM .DE 
PREVLINENM . DE 
STATCONT . DE 
DATALINENM . DE 
DATAADDRS . DE 
INPVEC 
CURVARNAM 
CURVARADDR 
FNVARPNTR 



.DE 
.DE 
.DE 
.DE 

STRTWRKARE . DE 
VECFUNCT . DE 
MISCNUMARE . DE 



ACCU1 
ACCU2 
ACCUM1EXP 
ACCUM1MANT . DE 
ACCUM1SIGN .DE 
CONSTPNT 
ACCUM1H0 



.DE 
.DE 
.DE 



.DE 
.DE 



$00 
$00 
$03 
$06 
$08 
$0A 
$0B 
$0C 
$0D 
$0E 
$0F 
♦ 10 
$11 
$12 
$13 
$14 
$16 
$17 
$18 
$19 
$1B 

$62 
$62 
$63 
$66 
$6E 
$6F 
$73 
$78 
$7A 
$7C 
$7E 
$80 
$82 
$84 
$86 
$88 
$8A 
$8C 
$8E 
$90 
$92 
$94 
$96 
$98 
$A1 
$A4 
$A9 
$AB 
$AE 
$AF 
$B3 
$B4 
$B5 



NEW LINE JUMP 

JUMP TO PRINT STRING ROUTINE 

VECTOR TO ' FIXED-TO-FLOATING' SUB 

VECTOR TO 'FLOATING-TO-FIXED' SUB 

SEARCH CHARACTER 

SCAN-BETWEEN-QUATES FLAG 

INPUT BUFFER POINTER: # OF SUBSCR. 

DEFAULT DIM FLAG 

TYPE: FF=STRING. OO-NUMERIC 

TYPE: 80=INTEGER. 00=FLOATING P. 

FLAG: DATA SCAN: LIST QUOTE: MEMORY 

SUBSCRIPT FLAG: FNX FLAG 

$00=INPUT. $98=READ 

COMPARISON EVALUATION FLAG 

INPUT FLAG (SUPPRESS OUTPUT) 

POSITION ON PRINT LINE 

MAXIMUM PRINT LINE WIDTH 

INPUT COLUMN LIMIT 

INTEGER VALUE (FOR GOTO ETC) 



: START OF 



JT BUFFER 



END OF INPUT BUFFER 
POINTERS FOR DESCRIPTOR STACK 
DESCRIPTOR STACK (TEMP STRING) 
END OF DESCRIPTOR STACK 
UTILITY POINTER AREA 
PRODUCT AREA FOR MULTIPLICATION 
POINTER: START-OF-BASIC 
POINTER: START-OF-VAR I ABLES 
POINTER: START-OF-ARRAYS 
POINTER: END-OF-ARRAYS 
STRING-STORAGE (MOVING DOWN) 
UTILITY STRING POINTER 
POINTER: LIMIT-OF-MEMORY 
CURRENT BASIC LINE NUMBER 
PREVIOUS BASIC LINE NUMBER 
POINTER: BASIC STATEMENT FOR CONT 
CURRENT DATA LINE NUMBER 
CURRENT DATA ADDRESS 
INPUT VECTOR 
CURRENT VARIABLE NAME 
CURRENT VARIABLE ADDRESS 
VARIABLE POINTER FOR FOR/NEXT 
START OF WORK AREA. POINTERS. ETC. 
JUMP VECTOR FOR FUNCTIONS 
: MISC NUMERIC WORK AREA 



: ACCUM#l: EXPONENT 
: ACCUM#l: MANTISSA 
: ACCUM#l: SIGN 

: SERIES EVALUATION CONSTANT POINT 
: ACCUM#l: HI-ORDER (OVERFLOW) 



KENNER 



0700 


0CCUM2EXP 


.DE 


$B6 


0710 


SGNCOMP 


.DE 


$BC 


0720 


ROUNDING 


.DE 


$BD 


0730 


SERPNTR 


.DE 


$BE 


0740 


NEWCHO 


.DE 


$C0 


0750 


r— . /-» 1 — i imi i/in 

PREVCHOR 


.DE $C6 


0760 


BUPTR 


.DE $C7 


0770 








0780 




* 




0790 




■ 




0800 




• 




0810 




:S0ME R0U 


0820 




J 




0830 


PRIMKEYW 


. DE 


$0200 


0840 


FUNCftDDR 


. DE 


$0238 


0850 


0PER0DDR 


. DE 


$0266 


0860 


KEYWT0B 


. DE 


$0284 


0870 


MESST0B 


. DE 


$0364 


0880 


i - i t o i y p* o p* i i 

STCKSRCH 


. DE 


$0301 


0830 


0PSPCMEM 


. DE 


$03CF 


0900 


O *rni.'T r\ r~i 

STCKTDP 


. DE 


$0412 


0910 


r-\ | iiyni i l j r— lj 

CHK0VMEM 


. DE 


$04 IF 


0920 


FflTOL 


. DE 


$044C 


0930 


ERROR 


.DE 


$044E 


0940 


RETWRT 


. DE 


$0474 


0950 


NWLINE 


. DE 


$0496 


0960 


REC0MP 


. DE 


$05 ID 


0970 


GETLINE 


. DE 


$0558 


0980 


T%r~ pv t kin 

BEGINP 


. DE 


$0559 


0990 


ENCODE 


. DE 


$0507 


4 AAA 

1 000 


RECHERCHE 


. DE 


$0633 


4 A ( A 

1010 


tj.iri i 

NEW 


. DE 


$0662 


1020 


ni r~p\ n 

CLEAR 


. DE 


$067C 


1030 


RESET 


. DE 


$0695 


1040 


GETPTR 


. DE 


$060B 


1 050 


LIST 


. DE 


$06B9 


1 060 


FOR 


. DE 


$0748 


1070 


EXECNXT 


. DE 


$07B4 


1080 


rvrnr>i in 

EXECCUR 


. DE 


$07E0 


1 090 


EXECT0K 


. DE 


$07E3 


1 100 


RESTORE 


. DE 


$0800 


1110 


CHKST0P 


. DE 


$0819 


1 120 


ST0PEND 


. DE 


$0828 


1 130 


END 


. DE 


$0820 


1 140 


ENDSTP 


• DE 


$082D 


4 4 BA 

1 150 


C0NT 


. DE 


$0853 


4 4 r 

1 160 


RUN 


. DE 


$087E 


1 170 


o no i in 

G0SUB 


.DE 


$0889 


1 180 


GOTO 


. DE 


$0806 


1 190 


nr"Ti inki 

RETURN 


.DE 


$08D3 


1200 


D0T0 


.DE 


$08F9 


1210 


li v/TPTUT 

NXTSTMT 


.DE 


$0907 


1220 


LINESEP 


.DE 


$0900 


1 17A 

1 230 


IF 


.DE 


$0929 


1240 


REM 


.DE 


$093C 


1250 


ON 


.DE 


$094C 


1260 


COLLECT 


.DE 


$096C 


1270 


LET 


.DE 


$0906 


1280 


CRLF1 


.DE 


$0073 


1290 


PRSTRMEM 


.DE 


$00C7 


1300 


t-'Kb 1 KYH 


.DE 


$00CC 


1310 


PRF0RMCH0 


.DE 


$00E9 


1320 


B0DD0T0 


.DE 


$0B0D 


1330 


INPUT 


.DE 


$0B2C 


1340 


PRMPT 


• DE 


$0B4F 


1350 


READ 


.DE 


$0B58 


1360 


INPERR 


.DE 


$0C27 


1370 


NEXT 


.DE 


$0C4B 


1380 


CHKTYP 


.DE 


$0CB9 


1390 


EV0LEX 


.DE 


$0CCD 


1400 


NOT 


.DE 


$0DE0 


1410 


GETPRR 


.DE 


$0E07 


1420 


CHKP0R 


.DE 


$0E0D 



0CCUM#2: EXPONENT. ETC. 
SIGN COMPARISON. 0CCU#1 VS #2 
0CCU#1! LO-ORDER (ROUNDING) 
SERIES POINTER 

CHRGET SUBR. : GET BASIC CHAR 
JTRY: GET PREV CHAR 
POINTER (WITHIN SUBRTN) 



ACTION ADDRS FOR PRIM KEYWORDS 

ACTION ADDRS FOR FUNCTIONS 

HIERARCHY & ACT. ADDRS FOR OPERATORS 

TABLE OF BASIC KEYWORDS 

BOSIC MESSOGES. MOSTLY ERROR MESS. 

SEORCH STOCK FOR -FOR- OR -GOSUB OCT IV. 

OPEN UP SPOCE IN MEMORY 

TEST: STOCK TOO DEEP ? 

CHECK 0V0IL0BLE MEMORY 

SEND CONNED ERROR MESS. , THEN! 

PRINT 'ERROR' 

WORM START: WAIT FOR BOSIC COMMAND 
HANDLE NEW BASIC LINE INPUT 
REBUILD CHAINING OF BASIC LINES 
RECEIVE LINE FROM KEYBOARD 



INTO BOSIC TOKENS 
GIVEN LINE NUMBER 



CRUNCH KEYWOR 
SEORCH BOSIC 
PERFORM NEW 
PERFORM CLEOR 
RESET THE STOCK 

RESET BOSIC EXECUTION TO STORT 
PERFORM LIST 
PERFORM FOR 

EXECUTE NEXT STATEMENT 
EXECUTE BOSIC STATEMENT 
EXECUTE STATEMENT TOKEN 
PERFORM RESTORE 
CHECK STOP KEY 
PERFORM STOP 
PERFORM END 

PERFORM CONT 

PERFORM RUN 

PERFORM GOSUB 

PERFORM GOTO 

PERFORM RETURN. THEN: 

PERFORM DATA: SKIP STATEMENT 

SCON FOR NEXT BOSIC STATEMENT 

SCAN FOR NEXT BASIC LINE 

PERFORM IF. AND PERHAPS: 

PERFORM REM: SKIP LINE 

PERFORM ON 

INPUT FIXED-POINT NUMBER 
PERFORM LET 

PRINT RETURN/LINE FEED 
PRINT STRING FROM MEMORY 
PRINT STRING POINTED BY Y/A 
PRINT SINGLE FORMAT CHAR. 
HANDLE BAD INPUT DATA 
PERFORM INPUT 
PROMPT AND RECEIVE INPUT 
PERFORM READ 

CANNED INPUT ERROR MESSAGES 
PERFORM NEXT 
CHECK TYPE MISMATCH 
EVALUATE EXPRESSION 
PERFORM NOT 

EVALUATE EXPR. WITHIN PARENTH. 
CHECK PARENTHESIS. COMMA 



DEl 



KEMMER 



1430 


SYNTERR 


1440 


FUNCSET 


1450 


VARNAMSET 


1460 


FUNCREF 


14.70 
1480 


cm 

AND 


1490 


COMP 


1500 


DIM 


1510 


VARSRCH 


1520 


CHKALPH 


1530 


NEWVAR 


1540 


ARRPNTR 


1550 


EVINTEXPR 


1560 


FLPINT 


1570 


FNDARRAY 


1580 


ILLEG 


1590 


FRE 


1600 


INTFLP 


1610 


POS 


1620 


NONDRCT 


1630 


DEF 


1640 


FNXSYNT 


1650 


EVFNX 


1660 


STRSTR 


1670 


STRVEC 


1680 


STRSET 


1690 


DESCR 


1700 


GARBCOLL 


1710 


CONC 


1720 


STRSTORE 


1730 


DSCRDSTR 


1740 


CLNDESCR 


1750 


CHRSTR 


1760 


LEFTSTR 


1770 


RI6HTSTR 


1780 


MIDSTR 


1790 


PULLSTR 


1800 


LEN 


1810 


STRTONUM 


1820 


ASC 


1830 


GETINTX 


1840 


VAL 


1850 


PARSPOKE 


1860 


FLPNUMB 


1870 


PEEK 


1880 


POKE 


1890 


TRAP 


1900 


ADD05 


1910 


SUBTR 


1920 


PLUS 


1930 


C0MPLACCU1 


1940 


OVEREXIT 


1950 


MULTBYT 


1960 


CONSTANTS 


1970 


LOG 


1980 


MULT 


1990 


UNPACK 


2000 


TSTACCUMS 


2010 


OVERUNDER 


2020 


MULT10 


2030 


TEN I NFL 


2040 


DIVIDE10 


2050 


DIVBY 


2060 


DIVINTO 


2070 


GETCNSTYA 


2080 


PACK 


2090 


COPY 


2100 


YPOC 


2110 


ROUND 


2120 


ACCU1SGN 


2130 


SGN 


2140 


ABS 



.DE *0E1E 
.DE *0E23 
.DE *0E2A 
.DE *0£4A 
t T3E *OE89 
-DE $0E8C 
.DE $0EB9 
.DE $0F24 
.DE $0F2E 
.DE $0FB8 
.DE *0FC2 
.DE $1028 
.DE $1039 
.DE $1047 
.DE $1059 
.DE $10D0 
.DE $1204 
.DE $1218 
.DE $1225 
.DE $122B 
.DE $1235 
•DE $1273 
.DE $1276 
.DE $12E9 
•DE $12F9 
.DE $130B 
.DE $1372 
.DE $1394 
.DE $14B7 
.DE $14F4 
■DE $151D 
•DE $1555 
.DE $1566 
.DE $157A 
.DE $15A6 
.DE $15B1 
.DE $15D9 
•DE $15F6 
.DE $15FC 
.DE $1605 
.DE $1615 
.DE $1627 
.DE $1666 
.DE $1672 
.DE $1688 
.DE $1693 
.DE $169C 
.DE $16B8 
•DE $16BF 
.DE $16D1 
.DE $17E8 
.DE $181F 
.DE $1824 
.DE $1885 
.DE $18B3 
.DE $18F1 
-DE $1987 
.DE $19B2 
.DE $19CF 
.DE $19DD 
.DE $19F4 
.DE $19F9 
.DE $1A0A 
.DE $1A0F 
.DE $1A9D 
.DE $1AC2 
.DE $1AF7 
.DE $1B07 
.DE $1B16 
.DE $1B26 
.DE $1B34 
.DE $1B53 



SYNTAX ERROR EXIT 
SETUP FOR FUNCTIONS 
VARIABLE NAME SETUP 
SETUP FUNCTION REFERENCES 
PERFORM OR 
PERFORM AND 
PERFORM COMPARISONS 
PERFORM DIM 
SEARCH FOR VARIABLE 

CREATE NEW VARIABLE 

SETUP ARRAY POINTER 

EVALUATE INTEGER EXPRESSION 

FLOATING POINT TO INTEGER 

FIND OR MAKE ARRAY 

MESS. ILLEGAL QUALITY ERROR 

PERFORM FRE. AND: 

CONVERT F I XED-TO-FLOAT I NG 

PERFORM POS 

CHECK NOT DIRECT 

PERFORM DEF 

CHECK FNX SYNTAX 

EVALUATE FNX 

PERFORM STR$ 

DO STRING VECTOR 

SCAN. SETUP STRING 

BUILD DESCRIPTOR 

GARBAGE COLLECTION 

CONCATENATE 

STORE STRING 

DISCARD UNWANTED STRING 

CLEAN DESCRIPTOR STACK 

PERFORM CHR$ 

PERFORM LEFT$ 

PERFORM RIGHT$ 

PERFORM MID$ 

PULL STRING DATA 

PERFORM LEN 

SWITCH STRING TO NUMERIC 

PERFORM ASC 

GET BYTE PARAMETER 

PERFORM VAL 

GET 2 PARAMS FOR POKE 

CONVERT FLOATING-TO-FIXED 

PERFORM PEEK 

PERFORM POKE 

PERFORM TRAP 

ADD 0.5 

PERFORM SUBTRACTION 
PERFORM ADDITION 
COMPLEMENT ACCUM #1 
OVERFLOW EXIT 
MUT I LPL Y- A-BYTE 
CONSTANTS 
PERFORM LOG 

PERFORM MULTIPLICATION 

UNPACK MEMORY INTO ACCUM #2 

TEST $ ADJUST ACCUMULATORS 

HANDLE OVERFLOW AND UNDERFLOW 

MULTIPLY BY 10 

10 IN FLOATING BINARY 

DIVIDE BY 10 

PERFORM DIVIDE-BY 

PERFORM DIVIDE-INTO 

UNPACK MEMORY INTO ACCUM #1 

PACK ACCUM #1 INTO MEMORY 

MOVE ACCUM #2 TO #1 

MOVE ACCUM #1 TO #2 

ROUND ACCUM #1 

GET ACCUM #1 SIGN 

PERFORM SIGN 

PERFORM ABS 
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e^Ei 5 □ S 



KENMER 



2150 
2 A 60 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
// 



CMPFLPYfl 

FLPFINT 

INT 

STRFLP 
FLPPLA 
C0NST2 
PRIN 

PRLINENUM 

PRNUMAX 

PRIAX 

C0NST3 

SQR 

POWER 

NEGATE 

C0NST4 

EXP 

SEREVAL 

RNDCONST 

RND 

COS 

SIN 

TAN 

C0NST5 

PRINT 

EXIT 

DISK 

DISK! 

DISKCL 

DISKOP 

EDIT 



.DE $1B56 
.DE $1B96 
.DE *1BC7 
.DE *1BEE 
.DE $1080 
.DE *1CC2 
.DE *1CD1 
.DE $1CD8 
.DE $1CDC 
.DE $1CEC 
.DE $1E1C 
•DE $1E45 
.DE $1E4F 
.DE $1E88 
.DE *1E93 
.DE $1EC1 
•DE $1F14 
.DE $1F5E 
.DE $1F66 
.DE $1FA2 
.DE $1FA9 
.DE $1FF2 
.DE $201E 
.DE $2059 
.DE $223C 
.DE $2253 
.DE $2259 
.DE $2283 
.DE $2299 
.DE $3770 



.EN 



COMPARE ACCUM #1 TO MEMORY 

FLOATING-TO-FIXED 

PERFORM INT 

CONVERT STRING TO FLP 

GET NEW ASCII DIGIT 

CONSTANTS 

PRINT IN, THEN: 

PRINT BASIC LINE NUMBER 

CONVERT FLP TO ASCII 

CONSTANTS 

PERFORM SQR 

PERFORM POWER FUNCTION 

PERFORM NEGATION 

CONSTANTS 

PERFORM EXP 

SERIES EVALUATION 

RND CONSTANTS 

PERFORM RND 

PERFORM COS 

PERFORM SIN 

PERFORM TAN 

CONSTANTS 

PERFORM PRINT 

PERFORM EXIT 

PERFORM DISK 

PERFORM DISK!" 

PEFORM DISK CLOSE 
PERFORM DISK OPEN 
LINE EDITOR 



BBC ■icrocoiDuter LEDS aan USERPOORT 



it 

LED '3 

■4- 



LED 5 aon 

u4ee.PoR.r 



4W 



2 V 



DlL-con lector 





\ 


A 




8 


it 


c 
D 


LE"D'5 

w 
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J. van Huffel 
Van Paoestraat 81 
B - 1080 BRUSSEL 



flan de Tekentafel: 
Fridus Jonkwn 



adressen i 



DDRB $FE62 
ORB $FE60 



: 1 vooruitaana (FF) 



40 



zet men in adres $FE6B de waarde $C0, en start met de timer oo adres 
$FE65 met bijvoorbeeld de waarde $FF, dan kniDoert de LED, die over- 
eenstemt met PB7, onafhankeli \k van de werkinq van de comDuter. 



DE|i " — m J J f-J KENNER 



LPRINT 



0010: 

0020: 

0030: 

0040: 

0050: 

0060: 

0070: 

0080: 

0090: 

0100: 

0110: 

0120: 

0130: 

0140: 

0150: 

0160 

0170 

0180 

0190 

0200 

0210 

0220 

0230 

0240 

0250 

0260 

0270 

0280 

0290 

0300 

0310: 

0320: 

0330: 

0340: 

0350: 

0360: 

0370: 

0380: 

0390: 

0400: 

0410: 

0420: 

0430: 

0440: 

0450: 

0460: 

0470: 

0480: 

0490: 

0500: 

0510: 

0520: 

0530: 

0540: 

0550: 

0560: 

0570: 

0580: 

0590: 

0600: 

0610: 

0620: 

0630: 

0640: 



0200 



0200 8ft 

0201 48 

0202 98 

0203 48 

0204 20 
0207 20 
020fl 68 
020B 08 
020C 68 
020D ftfi 



E4 00 
E5 00 
E6 00 
E8 00 
00 03 
00 04 

E8 11 
34 13 



78 02 
OF 02 



LARGE CHARACTERS WITH THE MICROLINE-80 
Bv Frans Bakx 

Huissteden 1112 

6605 HD Wiichen 

tel. 08894 - 16389 
I Dresent here a set of subroutines. 
These subroutines can be used to Drint 
larae characters: 3 lines hi and 4 normal 
characters width. The DointDatterns to 
write a character are Dlaced in a table, 
in the table below you can read how 
manv characters can be printed on normal 
9 inch oaoer. 





\ short line 3 


lono line 


comoressed 


26 




normal 


16 


20 


elonoated 


8 


10 



The oroaram olaces the characters in a buffer 
first. CURAD must ooint to the first character 
that must be o laced in BUFFER. NCHAR must 
hold the number of characters that must be 
placed. Initialize CURAD and NCHAR outside 
this subroutines. 
X and Y reaisters are unchanaed. 
One bvte orint 6 Doints. The basic araDnic 
character is $80. When the bits 0 throuoh 
6 are set the accordino domains - 
black. A 5x8 dot matrix is used 
for the characters. (5x9 to make 
the decenders oossible ). 
So three bvtes horizontal and 
three bvtes vertical are neccesarv for one 
ij^PI! character. These bvtes are Dlaced in 
TABLE. TABLE starts with the bvtes for 
character $21 (!) : bvtel rowl : bvte2 
rowl : bvte3 rowl ; bvtel row2 : bvte2 
row2 : bvte3 row2 : bvtel row3 : bvte2 
row3 : bvte3 row3 ; next character bvtes. 

LPRINT ORG $0200 



bO 


bl 


b2 


b3 


b4 


b5 



LCOUNT * 
NCHAR * 
CURAD * 
POINT * 
BUFFER # 
TABLE * 
Junior 
CRLF * 
PRCHA * 



$00E4 
$0OE5 
*00E6 
$00E8 
$0300 
$0400 



counter of lines (1-4) 

number of characters to olace in BUFFER 
Dointer to first character to dace in 
Dointer to Datterns in TABLE 
strina buffer 
table of Datterns 
subroutines X. Y unchanaed 

$11E8 outDut a cr and a If 
$1^34 outout a character in accu 



TXA 
PHA 
TYA 
PHA 
JSR 
JSR 
PLA 
TAY 
PLA 
TAX 



save X and Y reaisters 

FILLBF fill buffer 
PRBUFF orint buffer 

restore X and Y 
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LPRINT 



0650 : 

0660 : 

0670: 

0680 : 

0690: 

0700 : 

0710: 

0720 : 

0730: 

0740: 

0750: 

0760 : 

0770 : 

0780 : 

0790 : 

0800 ! 

0810: 

0820 : 

0830: 

0840: 

0850 : 

0860 1 

0870 : 

0880: 

0890 : 

0900: 

0910: 

0920 : 

0930: 

0940: 

0950: 

0960 : 

0970: 

0980: 

0990 : 

1000: 

1010s 

1020: 

1030: 

1040: 

1050: 

1060: 

1070: 

1080: 

1090: 

1100 

1110 

1120 

1130 

1140 

1150 

1160 

1170 

1180 

1190 

1200: 

1210: 

1220: 

1230: 

1240: 

1250: 

1260: 

1270: 

1280: 



020E 60 



020F 09 01 
0211 85 E4 
0213 20 22 02 
0216 20 E8 11 
0219 E6 E4 
02 IB 05 E4 
02 ID C9 04 
02 IF DO F2 
0221 60 



0222 02 00 
0224 BD 00 03 
0227 FO 06 
0229 20 30 02 
022C E8 
022D 10 F5 
022F 60 



RTS 



end 



0230 
0232 
0234 
0236 
0238 
0230 
023B 
023D 
023F 
0241 
0242 
0244 
0247 
0249 
024B 
024E 
0250 
0253 
0254 
0256 
0258 
0250 
025D 



00 00 
84 E8 
00 04 
84 E9 
00 03 
38 

E9 20 
90 IE 
FO 19 
08 

09 09 
20 5E 02 
OA E4 
09 03 
20 5E 02 
Bl E8 
20 34 13 
C8 

CO 03 
DO F6 
00 00 
20 6F 02 
60 



025E 88 
025F FO OD 

0261 48 

0262 18 

0263 65 E8 
0265 85 ES 
0267 90 02 
0269 E6 E9 
026B 68 



subroutine PRBUFF Drint all the characters 
ud to tOO . 
PRBUFF LDOIM $01 first line 

STA LCQUNT 
PRBF JSR PRLINE orint one line 
JSR CRLF 

INC LCOUNT next line 
LDA LCOUNT 

CMPIM $04 maximal 4 lines 
BNE PRBF if anv 
RTS 

subroutine PRLINE orint one of the 3 lines. 
The line number is in LCOUNT. 
PRLINE LDXIM $00 set uo for first char. 
PRLN LDOOX BUFFER oet one character from BUFFER 
BEQ PRLND $00 is terminator 
JSR PRCHOR Drint the oatterns 
INX next character 

BPL PRLN unconditional branch 
PRLND RTS 

subroutine PRCHOR Drint the 3 horizontal 
Datterns of a character. The Datterns are 
found in TABLE bv an offset. The offset 
is related on charactercode -$20 and the 
number of the orint ino line (in LCOUNT). 
PRCHAR LDYIM TABLE low bvte of TABLEs start 

LDYIM TABLE 
STY POINT 
LDYIM $03 
SEC 

SBCIM $20 character:=character-$20 
BCC PRCHND no character below $20 
BEQ SPACES orint larae soace (Y=3) 
TAY character-$20-> Y rea 

LDAIM $09 each character takes 9 oatterns 
JSR PNTSUM DOint:=ooint + 9 *(Y-1) 
LDY LCOUNT oet line number 
LDAIM $03 each line takes 3 Datterns 

i J noTv nnT^ M ooint:=ooint + 3 *(Y-1> and return with Y=0 
LDAIY POINT aet the Dattern 
Drint it 
next Dattern 

maximal 3 bvtes/character 



/255 hi bvte of TABLEs start 
+01 

set uo for 4 blanks 



PRCHR 



PRCHO 



JSR 
I NY 

CPYIM $03 

BNE PRCHR 

LDYIM $00 
SPACES JSR PRSP 
PRCHND RTS 

subroutine PNTSUM ooint:=ooint + accu * (Y-l) 
PNTSUM°DEY t0 ^ oatterns ln TftBLE - 



one soace 

Drint one or more soaces 



BEQ 
PHO 
CLC 
ADC 
STA 
BCC 
INC 

PNSM PLA 



SUMEND 



save accu 



POINT 
POINT 
PNSM 
POINT 



ooint:=ooint + accu 



+01 



KENMER 



LPRINT 








1230: 


026C 


DO 


FO 




1300: 


026E 


60 






1310: 










1320: 










1330: 










1340: 










1350: 


026F 


09 


80 




1360: 


0271 


20 


34 


13 


1370: 


0274 


88 






1380: 


0275 


10 F8 




1390: 


0277 


60 






1400: 










1410: 










1420: 










1430: 










1440: 










1450: 










1460: 


0278 


00 


00 




1470: 


0270 


02 


00 




1480: 


027C 


Bl 


E6 




1 A qrt • 
1 3V • 


027E 


30 


08 




1500: 


0280 


C9 


20 




1510: 


0282 


30 


04 




1520: 


0284 


9D 


00 


03 


1530: 


0287 


E8 






1540: 


0286 


C8 






1550: 


0289 


E4 


E5 




1560: 


028B 


DO 


EF 




1570: 


028D 


09 


00 




1580: 


028F 


9D 00 03 


1590: 


0292 60 






1600: 










TEST 











BNE PNTSUM unconditional branch 
SUMEND RTS return with Y=$00 



subroutine PRSP Drint at least one blank (=$80) 
or a number of blanks if Y contains a oositive 
number. 

PRSP LDOIM $80 orafic soace character 
JSR PRCHO Drint it 
DEY 

BPL PRSP 
RTS 

subroutine FILLBF fills the buffer with ascii 
characters in the ranae of $20 to $7F. 
The address of the first character to store in 
BUFFER must be in CUROD. The number of charac- 
ters to store must be in NCHOR. 
FILLBF LDYIM $00 

LDXIM $00 
FILL LDOIY CUROD 

BMI FIL 

CMPIM $20 

BMI FIL 

STOOX BUFFER 

INX 

FIL I NY 

CPX NCHOR 
BNE FILL 
LDOIM $00 
STOOX BUFFER 
RTS 



aet character 
no character 



bevond $7F 



no character below $20 

next character to Dlace in BUFFER 
next character to aet 
all character stored? 

mark the end of the 
strina with $00 



0010: 
0020 : 
0030: 
0040: 
0050: 
0060 : 
0070 : 
0080: 
0090 : 
0100: 
0110: 
0120: 
0130: 
0140: 
0150: 
0160: 
0170: 
0180: 
0190: 
0200: 
0210: 
0220: 
0230: 
0240: 
0250: 
0260: 
0270: 
0280: 
0290: 
0300: 
0310: 
0320: 
0330: 
0340: 
0350: 



2000 



5F 10 
E8 11 
34 13 

00 02 



E5 00 
E6 00 

2000 20 OF 20 
2003 20 33 20 
2006 20 17 20 

2009 20 33 20 
200C 4C 5F 10 

200F 20 IF 20 
2012 09 36 
2014 4C 34 13 

2017 20 IF 20 

2010 09 38 
201C 4C 34 13 

201F 09 IB 
2021 4C 34 13 



0 test Droaram to print laroe characters with the 
Micro line 80. 
Bv frans bakx 

The folowina text will be Drinted in ail Dossible 
larae formats : 
6502 
Kenne r 

TEST ORG $2000 

LABJUN * $105F exit to Juniors monitor 
CRLF * $11E8 outout a cr and If 
PSEffL * $1334 outDut the character in accu 

LPRINT * $0200 orint larae characters 

the number of characters in NCHOR. 

the startaddress of the strina in CUROD 
NCHOR * $00E5 
CUROD * $00E6 



JSR 
JSR 
JSR 
JSR 
JMP 



SIXLPI 
FORMOT 
EIGHTL 
FORMOT 
LOBJUN 



set the orinter: 6 lines / inch 
orint the text in 3 formats 
set the Drinter: 8 lines / inch 

exit to monitor 



SIXLPI JSR ESC 
LDOIM '6 
JMP 



EIGHTL JSR ESC 
LDOIM '8 
JMP PRCHO 

ESC LDOIM $1B 

JMP PRCHO 



Drint esc ($1B) 
orint 6 
and return 



o r i nt 8 
and return 

outDut esc 
and return 
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0360 
















0370 


i 2024 


09 


ID 




CMPRSD 


LDOIM 


S ID 
PRCHA 


0380 


: 2026 4C 34 


13 




JMP 


0390 














0400 


: 2029 


A9 


IE 




NORMOL LDOIM 


*1E 


0410 


: 202B 


4C 


34 


13 




JMP 


PRCHO 


0420 














0430 


1 202E 


09 


IF 




ELNGTD LDOIM 




0440 


! 2030 4C 34 


13 




JMP 


PRCHO 


0450 














0460 


: 2033 


20 


24 


20 


FORMOT 


JSR 


CMPRSD 


0470 


! 2036 


20 


48 


20 




JSR 


TEXT 


0480 


: 2039 


20 


29 


20 




JSR 


NORMAL 


0430 


: 203C 


20 


48 


20 




JSR 


TEXT 


0500 
0510 


: 203F 


20 


2E 


20 




JSR 


ELNGTD 


! 2042 


20 


48 


20 




JSR 


TEXT 


0520 


i 2045 4C E8 11 




JMP 


CRLF 


0530 














0540 


. 2048 


02 


05 




TEXT 


LDXIM 


$05 


0550 


• 204A 


BD 


62 


20 




LDOOX 


TABLE 


0560 


: 204D 


85 


E5 






STO 


NCHAR 


0570 


204F 


CO 








DEX 




0580 


2050 


BD 


62 


20 




LDOOX 


TABLE 


0530 


i 2053 


85 


E7 






STO 


CUROD 


0600 


2055 


CO 








DEX 




0610 


2056 


BD 


62 


20 




LDOOX 


TABLE 


0620 


2059 


85 


E6 






STO 


CURAD 


0630 


205B 


20 


00 


02 




JSR 


LPRINT 


0640 


205E 


CO 








DEX 


0650 


205F 


10 


E9 








It* 1 


0660 


2061 


60 








RTS 




0670 














0680 


2062 


6C 






TABLE 


= 


TYT 
1 A 1 


0630 


2063 


20 








= 


TXT 


0700 


2064 


06 








= 


wo 


0710 


2065 


68 








= 


TXT 1 ? 


0720 


2066 


20 








a 


TXTS 


0730 


2067 


04 








= 


$04 


0740! 














0750! 


2068 


36 






TXTS 


= 


'6 


0760 s 


2069 


35 










'5 


0770: 


206A 


30 








= 


'0 


0780: 


206B 


32 








= 


'2 


0730: 


206C 


4B 






TXT 


= 


'K 


0800: 


206D 


65 








= 


'e 


0810! 


206E 


6E 








= 


'n 


0820! 


206F 


6E 








= 


'n 


0830 : 


2070 


65 








= 


'e 


0840: 2071 


72 








= 


' r 



outout GS ( orint comoressed characters) 
and return 



outout RS ( orint normal cha 
and return 



rs) 



outout US (Drint eloaated characters) 
and return 



Drint the text 



outout cr and If and return 
aet numOer of characters 



oet startaddress of text 
+01 



+02 



start of strina 2 low 
/255 start of strina 2 hi 

lenath of strina 2 

start of strina 1 low 
/255 start of strina 1 hi 

lenath of strina 1 



next oaae ==; ==> ==) ==> 



OPERATING SYSTEM D0SAV2. OA van KOEN VAN NIEUUENHOVE 

Single en Double Density net JUNIOR od 5" flooay's 

In editie 35 van deceaber 1984 aaakte onze wv bekend dat 
Koen van Nieuwenhove uit Belaie set zi in DOS in aan/nerkino 
kwaa voor de eerste oriis toeaekend aaii oublikaties welke 
door hun oavano en oeleverde insoannino. de oraktische toe- 
Dasbaarheid en de leesbaarheid het belanc van de leden heb- 
ben aediend. Het bet reft hier het DOS zoals dat oebruikt 
Nordt od de redaktie. Effektief kan er 12BK oo floooy wor- 
den weaoeschreven oo 40 tracks net 26 sectoren oer track 
en 128 bvtes oer sector. IBM-coaoatible dus. In het utili- 
ty oakket konen o.a. Read en Save voor. teneinde ook oo de 
cassettes te kunnen bliiven Nerken. Verder ziin er een aan- 
tal coiwiando's. waarvan de belanori ikste ziin: Run. Limits. 
6o, Quit, Execute. Cooy, Delete. Directory. Free. List (de 
sectoren kunnen oo screen oeduaot worden in hex. in ascii 
of aet alle tabs oeexoandeerd en (CR) en (LF) uitoevoerd). 
Renaae. Trace. Store, Foraat (aet of zonder check). Randoa. 
Undelete (heel belanariik!), Meatest. Validate, Backuo (oe- 
selecteerd oer file of volledioe schiif cooieeren). Key 
(sleutel toekennen aan een disk) en Locft (beveiliaen van 
een file). 



ssssssssssass: 



D0SAV2.0A is aanoeoast voor werken aet KB-9. aet de assea- 
bler van Carl Moser. en aet Pascal. Binnenkort aet FATE. 
Aan de hand van het voor Fl. 10.== verkrimbare artikel 
aoet aen zelf de controllerkaart aet FDC 1776 ontwikkelen 
en bouwen (wire nrao of road-runninq). Het totale informa- 
tieoakket. waarin een coaolete source-listino aet koaaen- 
taar kost Fl. 97. 50. Overaaken oo oostrekenina 841433 t.n.v. 
U.L. van Pelt te Kriaoen a.d. IJssel. Of oo de AMRO-bank 
aldaar t.a.v. bankrekenino 44.11.06.471 t.n.v. W.L.v.Pelt. 



ZflKBOEK 6502. DELFIA PRESS BV, Bob Brioht. ISBN 906449 0287 

Deze serie naslaowerken in zakforaaat verschaft U beknoote 
inforaatie over en betrounbare beschriivinaen van de voor- 
naaaste kenaerken van de aeeste oebruikte oroaraaaeertalen. 
Het Zakboek 6502 is een ideaal naslaawerk voor zowel beain- 
nende oebruikers van 6502 aicroorocessors als voor orofessi- 
nele ofoaraaaeurs die in de 6502-asseableertaal orooraaaa's 
wi lien schriiven. 
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HEX DUMP: 





0 


1 


2 


3 


4 


5 


6 


7 


8 


9 


fl 


B 


c 


D 


£ 


F 


0400 


: 80 


00 


80 


80 


80 


80 


80 


82 


60 


00 


00 


80 


80 


80 


80 


80 


0410 


: 80 


80 


OE 


OE 


84 


8B 


8B 


61 


80 


80 


80 


98 


9D 


84 


B2 


B7 


0420 


: 84 


80 


81 


80 


8F 


00 


84 


98 


01 


90 


80 


82 


8i 


96 


99 


80 


0430 


: 96 


04 


84 


82 


81 


81 


80 


80 


95 


80 


82 


80 


80 


80 


80 


00 


0440 


: 86 


80 


80 


90 


80 


80 


82 


80 


82 


04 


80 


80 


90 


80 


82 


80 


0450 


: 80 


04 


B5 


84 


9B 


9F 


91 


80 


81 


80 


80 


94 


80 


83 


97 


81 


0460 


: 80 


80 


80 


80 


80 


80 


80 


08 


94 


80 


88 


81 


80 


80 


80 


83 


0470 


: 83 


81 


80 


80 


80 


80 


80 


80 


80 


80 


80 


80 


85 


80 


80 


00 


0480 


: 84 


98 


81 


80 


80 


80 


80 


96 


03 


94 


9D 


81 


95 


82 


83 


80 


0490 


: 88 


95 


80 


80 


95 


80 


80 


81 


80 


86 


83 


94 


98 


83 


80 


83 


0400 


: 83 


81 


83 


03 


85 


80 


83 


94 


83 


83 


80 


95 


00 


80 


83 


OB 


04B0 


: 81 


80 


82 


80 


B7 


B3 


81 


80 


80 


95 


83 


83 


80 


98 


83 


80 


04C0 


: 97 


83 


94 


82 


83 


80 


83 


03 


85 


98 


81 


80 


81 


80 


80 


96 


04D0 


: 83 


94 


96 


83 


94 


82 


83 


80 


96 


83 


94 


82 


03 


85 


82 


81 


04E0 


: 80 


08 


94 


80 


08 


94 


80 


80 


80 


80 


08 


94 


80 


08 


94 


80 


04F0 


: 88 


81 


80 


00 


86 


80 


89 


90 


80 


80 


82 


80 


BO 


BO 


90 


8C 


0500 


: 8C 


84 


80 


80 


80 


82 


04 


80 


80 


98 


81 


82 


80 


80 


86 


83 


0510 


: 94 


80 


86 


80 


80 


81 


80 


96 


B3 


94 


95 


8D 


85 


82 


83 


81 


0520 


: 96 


83 


94 


97 


83 


95 


81 


80 


81 


97 


63 


94 


97 


83 


94 


83 


0530 


: 83 


80 


96 


83 


84 


95 


80 


90 


82 


83 


80 


97 


83 


94 


95 


80 


0540 


. 95 


83 


83 


80 


97 


83 


81 


97 


83 


80 


83 


83 


81 


97 


83 


81 


0550 


97 


83 


80 


81 


80 


80 


96 


83 


84 


95 


83 


95 


82 


83 


81 


95 


0560 


80 


95 


97 


83 


95 


81 


80 


81 


82 


97 


80 


80 


95 


80 


82 


83 


0570 


80 


80 


80 


95 


90 


80 


95 


82 


83 


80 


95 


98 


81 


97 


04 


80 


0580 


81 


80 


81 


95 


80 


80 


95 


80 


80 


63 


83 


81 


9D 


98 


95 


95 


0590 


81 


95 


81 


80 


81 


9D 


90 


95 


95 


82 


95 


81 


80 


81 


96 


83 


0500 


94 


95 


80 


95 


82 


83 


80 


97 


83 


94 


97 


83 


80 


81 


80 


80 


05B0 


96 


83 


94 


95 


04 


85 


82 


81 


81 


97 


83 


94 


97 


07 


80 
80 


81 


05C0 


80 


81 


96 


83 


84 


92 


83 


94 


82 


63 


80 


83 


97 


81 


95 


05D0 


80 


80 


81 


80 


95 


80 


95 


95 


80 


95 


82 


83 


80 


95 

80 


80 


95 


05E0 


05 


00 


85 


80 


81 


80 


95 


80 


95 


B5 


05 


95 


81 


81 


05 


05F0' 


00 


85 


98 


89 


90 


81 


80 


81 


95 


80 


95 


82 


96 


80 


80 


81 


0600: 


80 


83 


03 


85 


98 


81 


80 


83 


83 


81 


00 


83 


80 


00 


80 


80 


0610! 


82 


83 


80 


04 


80 


80 


80 


89 


90 


80 


80 


80 


82 


OB 


80 


BO 


0620 : 


00 


80 


82 


83 


80 


98 


9D 


90 


80 


95 


80 


80 


81 


80 


00 
80 


84 
80 


0630: 


80 


8B 


93 


81 


80 


80 


80 


00 


85 


80 


80 


81 


80 


80 


0640: 


00 


90 


80 


9C 


OE 


80 


83 


83 


81 


00 


BO 


90 


00 


80 


95 


RZ 


0650: 


83 


80 


80 


BO 


80 


00 


80 


81 


80 


83 


81 


00 


BO 


80 


95 


00 


0660 : 


80 


82 


83 


81 


80 


BO 


80 


00 


8C 


81 


80 


83 


81 


80 


98 




0670: 


82 


97 


80 


80 


81 


80 


80 


BO 


90 


80 


BO 


95 


88 


8C 


81 


00 


0680: 


BO 


80 


00 


80 


95 


82 


80 


61 


80 


84 


80 


80 


95 


80 


80 


81 


0690 : 


80 


80 


88 


80 


80 


00 


80 


82 


86 


80 


08 


80 


90 


00 


06 


80 


0600 : 


82 


80 


81 


88 


94 


80 


80 


95 


80 


80 


83 


80 


BO 


BO 


80 


95 


06B0 : 


95 


95 


81 


81 


81 


00 


BO 


80 


00 


80 


95 


82 


80 


81 


80 


BO 


06C0: 


80 


00 


80 


95 


80 


83 


80 


00 


BO 


80 


00 


BO 


85 


80 


80 


80 


06D0 : 


00 


BO 


80 


05 


BO 


80 


80 


80 


84 


00 


00 


90 


00 


8: 
80 


80 


82 


06E0 : 


80 


80 


80 


BO 


90 


82 


8C 


90 


82 


83 


80 


00 


B4 


80 
80 


95 


06F0: 


90 


80 


82 


80 


90 


00 


80 


95 


00 


80 


82 


83 


81 


90 


90 


0700 : 


09 


08 


81 


80 


81 


80 


90 


80 


90 


95 


94 


95 


82 


82 


80 


BO 


0710: 


80 


90 


00 


97 


80 


81 


82 


81 


00 


80 


90 


80 


BO 


95 


80 


8C 
80 


0720: 


85 


00 


BO 


90 


00 


86 


80 


83 


83 


80 


80 


96 


81 


82 


94 


0730: 


80 


82 


81 


80 


95 


80 


80 


94 


80 


60 


81 


80 


82 


09 


80 


80 


0740: 


08 


81 


82 


81 


80 


80 


80 


80 


83 


83 


95 


80 


80 


80 


99 


99 


0750: 
0760: 


91 


06 


06 


84 


81 


81 


81 


80 


80 


80 


80 


80 


80 


80 


80 


80 



T E KOOP flflNSEBODEN 

JUNIOR kast 19' + zware voedina, basiskaart + 
iaoenal, interfacekaart, 5 slot backoanel, 
aet EPROMS PM en TH sawn: Fl. 150. 

Elektuur Eoroaaer 2716/2732 aet textool socket: FL 75, 
8" FDOS controller kaart aet FD 1771 FL. 90. 

2 x 8K Raa/Roa kaart aet 2 x 8K Raa en in 
EPROM's FDOS 1.2 voor 8" FL. 100. 

64K static Raa/Roa-kaart aet 16K Raa Fl. 75. 

Verkooo ten behoeve van een Beloisch lid. 
Voor inforaatie of bezichtiging: Tel.: 01807 



ACORN ELEKTRON 

Vele 6502 kenners onder ons 
kennen al eniae tiid de hooa 
aanaeschreven BBC comouter. 
Een aoedkooer broert ie daar- 
van insoireerde Simon Voort- 
man tot het verstrekken van 
de volgende informatie. 
De Pcorn Electron is een noa 
betrekkeliik nieuw ontwero 
(uit 1983). De Electron is 
uitgerust met dezelfde (be- 
roemde) Basic van de BBC. 't 
Is eigenliik een kruisina 
tutsan Basic en Pascal. Hier 
door komen in deze Basic- 
versie bi jv. PROCEDURES en 
lokale variabelen voor. Een 
procedure (afkortina: PROC) 
is eiqenli.ik aewoon een sub- 
routine, alleen behoeft er 
geen GOSUB aebruikt te war- 
den! In olaats van biivoor- 
beeld GOSUB 500 zeo ie dan 
bijv. PROC main-orodram. De 
coaouter zoekt dan zelf de 
subroutine oo: deze moet dan 
beginnen met: DEF PROC main- 
Droaram. In Dlaats van 
RETURN schriif ie dan: 
ENDPROC. Oo deze maiiier hoef 
ie geen soronaadressen bi i 
te Ftouden, en de Drocedures 
kunnen overal in het Droaram 
ma aanaeroeoen (en ook ae- 

glaatsf) worden. 
ij de Electron wordt ook 
een flink dik (290 Daaina's) 
handboek aeleverd. samen met 
een orogrammeerboek (Start 
Proarammina with the Elec- 
tron) en een Int roductorv- 
cassette, met daaroo best in 
teressante Drogramma's. die 
de arafische- en aeluidsmoae 
lijftheden aoed illustreren. 
De Electron heeft een 6502 0 
2 MHz processor, en dit is 
vooral bi i listen van oro- 
oramma's aoed te merken: het 
orogramma vlieqt over het 
seherm. Tevens ziin de cur- 
sor en de kleuren in elke 
mode te (her) Droarammeren. 
01 dit moois vraaat ook zim 
orijs. In de laaaste (beeld- 
scherm) modes vraaat het 
beeldschermaeheuaen zo'n 20K 
ROM van de totale 32K aeheu- 
gen. De Electron heeft wat 
minder standaard interfaces, 
de BBC is dan ook 2 x duur- 
der. Er zim aoarte aanslui- 
tingen voor TV, RGB-monitor 
en een uitaana met een comoo 
site video'signaal. Voor het 
aeluid zorat een inaebouwde 
Iuidsorekef. Od de Electron 
kunnen ook. echter niet alle 
BBC-oroaramma' s draaien. 
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COMMODORE BASIC 3.5 (As present in the Commodore C-1&). 

Tokenisud Microsoft BASIC keywords and addresses H. de Vries 

Analogous to the publication for Commodore-64 by A. Mueller. 
DE 6582 KENMER, December 1983, pages 5-8. 



: COMMANDS . 

: : 

: KEVWORDS CORRESPONDING TO 818E : 

: ADDRESSES CORRESPONDING TO 8383 . 

: THE ADDRESSES OF ROUTINES FOR COMMANDS ARE THE ADDRESSES \ 

: MINUS 1, BECAUSE THE ROUTINES ARE INVOKED THROUGH RTS. : 



KEVWORD TOKEN ADDR-1 KEVWORD TOKEN ADDR-1 



til ijj 


ana 
bo 


8CD9 


RESUME 


DS 


B43F 


PAD 

r l'n 


a 1 
ol 


ADC 9 


TRAP 


D7 


B42A 


f-jrvT 
1 It A 1 


QO 


9293 


TRON 


D8 


B&51 


JJH 1 H 


oJ 


8DAF 


TROFF 


D9 


B&54 


T NPI I T it 


a a 




SOUND 


DA 


B848 


Tf-Jpi IT 


ncr 
OJ 


Q 1 QT 

y in f 


VOL 


DB 


B8BC 


n t m 

U X PI 


Od 

oo 


9&9A 


AUTO 


DC 


B&CC 


ric.HU 


o / 


914E 


PUDEF 


DD 


B543 


i C" T 
Lt I 


88 


8E7B 


GRAPHIC 


DE 


C5C2 


tj<J 1 U 


8S 


8D4C 


PAINT 


DF 


B8D8 


HI IKI 

HUM 


8A 


8BBB 


CHAR 


E8 


B9D3 


T r— 

lr 


8B 


8DE8 


BOX 


El 


BAE1 


RESTORE 


8C 


8C99 


CIRCLE 


E2 


CB1D 


GOSUB 


8D 


8D2B 


GSHAPE 


E3 


BD34 


RETURN 


8E 


8D82 


SSHAPE 


E4 


BE28 




or 


OCQA 

otoH 


DRAW 


E5 


C4D8 


STOP 


98 


8CD7 


LOCATE 


E& 


C5BE 


ON 


91 


8E1A 


COLOR 


E7 


C519 


WAIT 


92 


9E&9 


SCNCLR 


E8 


C56& 


LOAD 


93 


A7F2 


SCALE 


E9 


C5B7 


SAVE 


94 


A7DD 


HELP 


EA 


B&E7 


VERIFV 


95 


A7EF 


DO 


EB 


B556 


DEF 


96 


9A9C 


LOOP 


EC 


B6B2 


POKE 


97 


9E11 


EXIT 


ED 


B5AB 


PRINT* 


98 


8FDF 


DIRECTORV 


EE 


C8BB 


PRINT 


99 


8FFF 


DSAVE 


EF 


C948 


CONT 


9A 


8DB2 


DLOAD 


F8 


C95B 


LIST 


9B 


SAFE 


HEADER 


Fl 


C9&7 


CLR 


9C 


8A97 


SCRATCH 


F2 


C99B 


CMD 


9D 


8FE5 


COLLECT 


F3 


C9CB 


SVS 


9E 


A7B4 


COPV 


F4 


C9D9 


OPEN 


9F 


A84C 


RENAME 


F5 


C9F3 


CLOSE 


A8 


A859 


BACKUP 


F& 


C9FF 


GET 


Al 


98B7 


DELETE 


F7 


AE59 


NEW 


A2 


8A78 


RENUMBER 


F8 


AB8E 


GO 


CB 


<8CSB> 


KEV 


F9 


B728 


ELSE 


D5 


8E8A 


MONITOR 


FA 


FF51 


Note: 1) 


Bit 7 in 


the last 


character of each key 


word is 




determine 


the end 


of a keyword. 







2) Keywords are tokenised by adding *88 to their relative 
(hex) position in the table. 
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COMMODORE BASIC 3.5 (As present in the Commodore C-16) 
Token ised Microsoft BASIC keywords and addresses 



KEYWORDS 



: 
: 


KEYWORDS 


CORRESPONDING TO 


8219 


AND 


KEVWORD 


TOKEN 


















TAB( 


A3 


NOT 




AS 


TO 


A4 


STEP 




A9 


FN 


A5 


USING 


* 


FB 


SPC< 


AS 


UNTIL 


* 


FC 


THEM 


A7 


WHILE 


* 


FD 













DVADIC OPERATORS 

KEVWORDS CORRESPONDING TO 823B 

PRIORITIES AND ADDRESSES CORRESPONDING TO 8453 

THE ADDRESSES OF ROUTINES FOR DVADIC OPERATORS ARE THE 
ADDRESS MINUS 1, BECAUSE THE ROUTINES ARE INVOKED TROUGH 
A RTS INSTRUCTION. 



KEVWORD 


TOKEN 


ADDR-1 


PR TV 




+ 


/\/\ 

rW* 


9E9D 


79 


addition 




AB 


9E86 


79 


subtraction 


* 


AC 


A87A 


7B 


multipl ication 


/ 


AD 


A196 


7B 


division 


t 


AE 


A5ED 


7F 


exponentation 


AND 


AF 


95FA 


^ Ok 


logical AND 


OR 


B8 


95F7 


46 


logical OR 


monadic 


' - " AB 


AS26 


7D 


negation 


monadic NOT A8 


9464 


5A 


logical NOT 


> 


Bl 


9627 


64 


comparison 


SB 


B2 


9627 


64 


comparison 


< 


B3 


9627 


64 


comparison 














■ 


■ 

















Note: 1) Bit 7 in the last character of each keyword is set to 
determine the end of a keyword. 
2) Keywords are tokenised by adding »88 to their relative 
(hex) position in the table. 



47 
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COMMODORE BASIC 3.5 (As present in the Commodore C- 
Tokenited Microsoft BASIC keywords and addresses 



FUNCTIONS 





FUNCTIONS 


CORRESPONDING TO 823D 


Awn ooon 




: 
; 


ADDRESSES 


CORRESPONDING TO 8415 

















KEVWORD 


TOKEN 


ADDR 


KEVWORD 




Anno 















S6N 


B4 


A2BE 


STR* 






INT 


B5 


A358 


VAL 


C5 


9D93 


ABS 


B6 


A2DD 


ASC 


C6 


9D7B 


USR 


B7 


85B8 


CHR* 


C7 


9DBB 


FRE 


B8 


9A62 


LEFT* 


C8 


9CCF 


POS 


B9 


9A7D 


RIGHT* 


C9 


9DB3 


SQR 


BA 


A5E4 


MID* 


CA 


9D15 


RND 


BB 


A787 


RGR 


* CC 


BF79 


LOG 


BC 


ABIE 


RCLR 


• CD 


BF85 


EXP 


BD 


A66B 


RLUM 


* CE 


_______ 

BF87 


COS 


BE 


AA78 


JOV 


* CF 


BFC1 


SIN 


BF 


AA77 


RDOT 


* DB 


BFFD 


TAN 


ce 


AACB 


DEC 


* Dl 


9E1B 


ATN 


CI 


AB1 A 


HEX* 


* D2 


B5B7 


PEEK 


C2 


9DFA 


ERR* 


* D3 


B4BE 


LEN 


C3 


9DS1 


INSTR 


* D4 


(B386) 



is set to 



Note: 1) Bit 7 in the last character of each keyword 
determine the end of a keyword. 
2> Keywords are tokenised by adding *8B to their relative 
(hex) position in the table. 



Van Peter van Harten ontvinoen Me de volqende inforaatie: 

FLITSEND FORTH door Alan Winfield 
Uitaeverii : flcadeiic Service. Den Haao. 
ISBfi 90-6233-115-7 Priis: ca. Fl. 35,= 

Het boek is een vertalino van "The Co»Dlete FORTH, fl new 
wav to oroorat cotouters. " 

De eerste helft is een cursus FORTH, in de tweede helft 
worden soeciale FORTH-technieken qetoond. Een FORTH-79 
overzichtskaart wordt leeoeleverd. Het is een helder ae- 
schreven boek, aeschikt vdor beqinners en aevorderden. In 
de voorbeelden tiorden BflSIC-eouivalenten van FORTH-con- 
structies oetoond en er zijn oefeninaen iet uitwerkinaen. 



INLEZEN SOURCE Micro-flDE 



6ebruikers van de flsseabler/Disasseibler/Editor Micro-flDE 
hebben intiddels al wel ontdekt dat enioe adressen vanaf 
$2EA3 belanariik ziin voor de 1/0-aktiviteiten en het be- 
oalen van de werkveiden. h.o. de source-buffer, de svabol 
table, de XREF-table. Een enkele keer kott het voor dat 
•en in de veronderstellinq verkesrt dat de eiaen taoes 
•et Micro-flDE source niet zonder neer kunnen wofden inoe- 
lezen door een andere qebruiker die hetzelfde foraaat toe 
Dast. Men oaat er dan vanuit dat bii de ander het adres 
van de source-buffer aoet overeensteaaen aet die van de 
oorsoronkeliike aebruiker. Dit is ten onrechte. Het kan 
oeen kmaad. iaar'het is overbodia! Micro-flDE leest het 
orooraaaa van taoe en olaatst net in de source-buffer die 
door de ontvanoer reeds eerder is beoaald. Heeft ten dus 
oeduaot oo taoe vanaf $4600 en beeft de ander de source- 
buffer oedefinieerd oo adres $5000. dan leest Micro-flDE 
ren in naar adres $5000. Beisak dient de aens! 



zonder 



^ all-round 

All-round Systemen Nederland B.V., Stationsweg 23, 2182 BA Hillegom 
postbus 212, 2180 AE Hillegom. tel. 02520-19544. telex 41443 allro nl. 

WIJ LEVEREN SNEL EN TEGEN ZEER GUNSTIGE PRIJZEN: 

Diskettes 

van verschillende merken zowel 8" als 5£". Tevens formatted en 
cleaning dikettes. 

Papier 

voor kleingebruikers leveren wij dozen van 1000 vel 38 cm. 

Inktlinten 

Iinten en kassettes voor alle gangbare printers. 

Computermeubilair 

o.a. ideale tafeltjes om een kompleet micro systeem op te plaatsen. 

Data -safe s 

een mini safe voor 80 x 5%", of 30 x 8" diskettes. 

Opbergsystemen 

o.a. voor diskettes, tapes, kassettes en alle maten output. 

Geluiddempende kappen 

brengen het geluid van uw printer 75 tot 90% terug. 

Alles voor uw computer 




KENMER 



Irhcuisopgave 

Nmber Page Artike! 



Pagina 2 
Language 



«nter Systea 





1i 




in 


23 


07 


23 
23 


tj 
tc 


77 


16 


73 


w 


77 


7* 


23 


77 
w& 


kj 


in 




di 


77 


In 


24 


?6" 




.77 

£.<* 


71 


if 


21 




21 


4 7 


?•; 




7J 


■si 




7Q 




•! 


7£ 

2 r 




u 


7C 


*7 


7C 
7* 


?7 


■ J 


f. 


7c 


. . 


5* 




?c 




26 
7* 


E J 


26 


j j 

t z 


it 
7 1 


J c 


is 




?i 


?* 


2* 


2! 


26 




26 


4' 


;< 


it 


77 


"■i 


77 


39 


«i 


!2 


■J7 


• r 


77 


19 


7" 


24 


7"1 






It 


77 









2? 
:? 

73 



"9 

2 C 
2? 
M 
J| 
30 

:b 
zs 
ze 
zt 

30 
30 
30 
30 
30 
30 
31 
3! 
3! 
31 
31 
31 



3i 



?! 

3? 

it 
77 

2' 



73 
17 
05 
09 
10 
11 
16 
17 
23 
34 
35 
37 
40 
42 
45 
05 
Si 
13 
16 
17 
27 



Ophaler telcst 
Locate en replace 
Basic ode 

Aanpassinger basic VN '.'2.1 

AatDiatiscr apsta-ter 

Tiier sr. teilertechniefesnn vocr it 6522 

Ok; s'i-ster aar, Kia 

R . r set is Junior 

Easy editing suppa-ter 

Sixpeie Mfeei.3*n uitbreidmg 

:us!e step denug prograaaa 

Tiny bast: vaor it Junior 

flcepy voor Icfii8r,Kii,f>i en Ai> 65 

Letts attalUn 

Frequs-t :e»el ler let de 6522 
Aa'passinjs" bass: W V2.1 vac; Junior 
3u.tefite»;feratvitt" set 5= Ais 65 
E9sc^rijv:r,9 P<-sto!> tiopp, systes 
List s' eisii.cs 
|M<t 

Sicrithtw pregt avta 
»s!a:s aas -:;a:s 
3a r ps5:>g*r jan basiv 'Hi If2.! 
sis:: :r5|rs3 :cra-esscr 
'et'-.:': vir ie via 6522 
Basic rsgels gE-e-e'en 
Spi'aai 

i:* 3asi: v:cr it .'truer 

Pese- =>" cta't 

's-vvce ripccrteo bestand 

'•" istuB 'aar daq cenversie 
faak van .'uric* een Seiis- 
Hit 



ttMto c: Ok! CicraiiRe set de lav.ot 
"even se»t«U I/O 
Jexaiecfittl apteiien er, aftrekkir 
-.esetprcgrana 
Adress 

Jastersifa" cp teelisr^erB vaar Jurior 
5:gita:e kid net 2 aaMtsuriars pec: 
c 'eqr , :^ee'''?t k 0!!fr. v:e- wetensehap 

r eC'j\;r.'?al:bSn 

°*07'ai»?-ei »et c :ea! 

C6»"certranic3 interface 

Nag^aais Bas i : caapresscr 

Input an expression 

Krppehng van Janic aar, 8 • iiccp, 

"ihear: 

Star-trek 

Tekstvertierkinj let teletype 

!! 91 :4 cpzaefer, 

T e':c'oonb;ar.tnoo'de r 

IIAPT scka'.elisg -u.-.iar 

Aii'.ciatisehs register'.. tier.rq tj 

Fatrhes an Kieri ice 

Een 'iappy-cisk aa'. de A:i c5 

I's:*? FcFtfi *'A>> iht 5532 

■'icosc- 1 . ?-:s;e rout :r,=s 

Ji.7. ? 

*\zrz tit t'm* displi) 
1 «e»d':irp 

Cowestaar ep "aeta.r.'paaber. 
FDraat rc.j»iei { f*»at 
fJitgetreide 6502 disassesbisr 
:B H H ":ke'i:ed 3as:: keyaa.-is 
"u:i?i.:sstar!d 
S:*!ii:\en cf springer 
gitB'eiiinjfii vocr de SYN bas:: 
Teksverneriier iriader 
Hexa^eiaaal oi:etter 
Clock sn dispia; and screen 
Juniors hex Bon'.tc cr. Aecrn systes 
Anniiiteitennypctheek 
Recorder/telex aar, CSf - 64 
PRCHA 

Prograaae'en van 2764 
Beuw eess een Niljono' 
Bugs in Super star trek 
Prograa Cassette ! 
ScVdiven of springen deel 2 
Leds op Junior 

Printer routines voor STAR CP 510 
Uitbreiisng S/a basic voor Junior 
Viskunde prograstia 
Lichtkrant/beeldschera 
florse tutor 

Uitbreiding Sya basic voor Junior 
Obsessie 

Processor set ...Push X 
Tips k Tricks 
De VBU kaart 
Prograa Casette 2 



y.L.van Pelt 
H.K.Keaainga 
J.P.van Toledo 

J.F.var, Sprang 
J.P.van Toiedc 
F.Saeehuyzen 
A.S.Kankel 
R.C.vissers 
K. Burgers 
N. A. v.d.Laan 
F.van Kenhove 
A. Mailer 

K.yan Niejuenhove 
.'.Susan 

K.van Nieuoenhove 
T.SchDuten 

r.S.isnkaar. 
R.vissers 

H. v. Linger. 
V.Cviijcers 

K. ,n KieuMenbcvt 
R.Uphsu 
ii.Xuiteas 
".van H.ntuB 
A.ir.der H a r 1 3 5 
t.J.N.Visscheciik 

I. J.N. Visscnedi j k 
K.R.van Hifttttl 
r.Xepiehen 
P.Franitii 
^.Cristen 
W.L.,ar, Felt 

A. ti'.den har tag 
F.Saeeriuyzen 
R.^anjeveid 
w.r.«an Toieec 
R.l'issers 
J.H.Verniaaer! 

B. Backx 
F.Saeehu/zen 
J. Janssen 

A. Xuiier 
R.upnoH 
R.upnaff 

X, ar, KleuKer:hove 
R. A. F.Bens 
A.har.kel 
J.C.J.Beijer 
J.P.van Toleco 
H.vaj cen Driesscr.e 
A.A.Zaart 
P. van Niekerk 

A. S.Ka.ve: 

B. A.Gerr it sen 
5, van Roekei 
s .. Jpnatf 

E ■ H • »'ef z i ] it n 

F.B.iesefi 

F.J.s.Sisenaijze;- 

R.j'phsH 

R.UpnjTt 

2. van Rsekei 

A.Niiller 

J.P.van Taiedc 

R.de Freetere 

F. J.S.Saeehuij zen 

M. A. van de Laan 

C. Biak 
R.Vonk 

A. van der Xeutter 

F. Jankaan 

F.Veber 

F. Lopez 

R.Langeveid 

J.H.Verniaaen 

R.Banen 

A.BrauMer 

R.de Preetere 

H. Buuraan 
S.T.tfaldringh 
F.J.K.Saeehuijzen 

I. van Rijsei 
T.G.de Eriever 
F.J.M.Saeehuijzen 
Ft. van Doro 

H. Burgers 

J. J. Janssen 
A.BrouNer 



Junior 

Kil 

Junior 

Junior 

Jun 1 or 

Algeaeen 

Kil 

Junior 

Junior 

Algeaeen 

Junior 

Junior 

Algeaeen 

Aigeaeen 

Junior 

Junior 

An 65 

Aigeaeen 

Ml 

Junior 

Acarn 

Junior 

Junior 

Aigeaeen 

Algeieer. 

Aigeaeen 

Kit 

Junior 

tunicr 

Junior 

Junio» 

Junior 

Aigeaeen 

Junior 

Kil 

Kil 

J*U i zt 

Junior 

JtiR 1 3f 

Kii 

Aigeaeen 

Algeaeen 

Aigeaeen 

CBR 64 

Aigeaeen 

Apple ii 

Junior 

Junior 

Aigeaeen 

Kii 

junior 

Kil 

jun. or 

Junior 

Junior 

An 65 

Aigeaeen 

Aigeaeen 

Junior 

Junior 

Junior 

Aigeaeen 

Junior 

Aigeaeen 

CBR 64 

Aigeaeen 

Junior 

Junior 

Junior 

Junior 

Junior 

Acorn 

Junior 

CBN 64 

Junior 

Algeaeen 

Junior 

Algeaeen 

Junior 

Junior 

Junior 

Algeaeen 

Junior 

Aigeieen 

Junior 

Junior 

Junior 

Junior 

Aigeieen 

Aigeieen 

Junior 

Junior 



Assembler 

Asseibier 

Asseibler 

Asseibier 

Asseibler 

Asseanier 

Asseibler 

Asseibler 

Asseibier 

Hardware 

Asseabler 

Asseabler 

Basic 
Asseabler 
Asseabler 
Asseaoler 

Asseabler 

Asseabier 

Basic 

Hardware 

Asseaoier 

AsseaOier 

Aigeaeen 

Basic 

Asseaoier 

Asseabier 

Asseaoier 

Basic 

Asseabier 

Basic 

Asseabier 

Asseaoier 

Asseaoier- 

Asseabler 

Asseibier 

Asseabler 

Asseabier 



Basic 

Asseab.er 

Asseabier 

Aigeaeen 

Asseibier 

Basic 

Asseibler 

Asseabier 

Asseaoier 

Asseabier 

Asseabier 

Asseaoier 

riardaare 

Fartn 

Asseaoier 

Asseabler 

Asseibier 

Basic 

Asseaoier 

Basic 

Basic 

Asseabler 

Asseabler 

Asseabier 

Asseabler 

Asseabier 

Asseabier 

Basic 

Asseibler 



Basic 

Asseabier 

Asseabier 

Ssseabler 

Asseabier 

Asseabler 

Basic 

Asseabler 

Asseabler 

Asseibler 

Asseibler 

Basic 

Asseabler 

Asseabler 



